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DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 
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DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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MODULE DBGPRINT (IDENT = ‘V04-000") = 
BEGIN 


VeRO Ree RAE AREH RAHA AAAAA RATE HEEE RATER TEETH REEEAAEEHERK Eee eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
a 
® 
- 
® 
: ® 
‘* THIS her: & ss A gt oy Ags Be LICENSE AND MAY BE Ps AND corres * 
; - Y IN ACCORDANCE W TERMS OF SU 9 : AN ‘ 
: z= 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. - 

® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 
; * 
!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
t» SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 

* 

® 

* 


See e RR RE RARE REA EAAEERREEA AERA TERETE EAE HERAT EAEAAAAATAAEAAAEAAAKE RAE 
' 


WRITTEN BY 
Bert Beander March, 1982 


i MODIFIED BY 
! Vv. Holt 


May, 1982 
May, 1982 
PS Sep, 1982 
t ae ite HISTORY 
3.01 14-May-82 VJH Added routine DBGSFLUSHBUF. Needed to 
initialize buffer after error handling. 
i 3.01 28-May-82 PS Added DBGSPRINT_CONTROL function for DBGSPRINT. 
i 38 07-Sep-1982 PS Added Print Primary Symbol Name Routines. 
i 38 © 01-Nov-1982 PS Added Print Language specific data routines 
i 38 11-Nov-1982 PS Added Symbolization routines 


i 3B-4 15-Sep-1983 wC3 Added updating of DBGSGL_CURRENT_PRIMARY for 
self-referential records. 


MODULE FUNCTION 


' 
1 
1 
! 
! 
! 
1 
' 
i 
‘ 
i 
i 
' 
i 
! 
‘ 
! 
' 
i 
' 
' 
i 
' 
i 
This module contains the DEBUG print formatting and output routines. 


REQUIRE *SRC$:DBGPROLOG.REQ'; 
LIBRARY *LIB$:DBGGEN.L32'; 
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FORWARD ROUTINE 
DBGSFA 


O OUT: NOVALUE, 
DBGSFORMAT FAO_OUT: NOVALUE, 
DBGSFLUSHBOF: “NOVALUE, 


DBGSLANGUAGE_FORMAT, 
DBGSNEWLINE: NOVALUE, 
DBGSPRINT: NOVALUE, 


GET_SUBSCRIPT_VALUE, 
PRINT_PUSH; 


3 
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DEBUG. SRCJDBGPRINT.832;1 (1) 


Output an FAO-formatted print Line 

Format an FAO-formatted print pth 

Initialize a new print Line (withou 
po 

Print value according to Language 


Output the current print re and 
a 


) 9g 
Set indentations for DBGSPRINT 
Print <p,s,e> information : 
Print name from a Primary or Volatile 
Print name from address , 
Print offset value in current radix 
Print Set Data 
Set print info for current Language 
Print name of data item 
Print pathname of data item 
Set the maximum Line width 
Write a Line to the DEBUG log file 
Write an output Line to DBGSOUTPUT 
and to the tog file (if any) 
Get array subscript value 
Push name string pointer on the stack 
upwards or downwards 
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87 eg ROUTINE 
88 DBGSCOLLECT: NOVALUE, Sanitize character vectors 


| 


<9 
ow 


MEW OC ODN UE WN 0 ODNGA UE WN 0 ODNOA UNE WW OO ODNOAU EWN (OOO NOU SWI O”0 


BBE BANA WII NINININIDY 2 2 SS Ss SOOO OCOOCOCOCO ooOooooo”s 


oe ee ee LL) 


SN NNO AAA AAA O 


DBGSFILL_IN_VMS_DESC, 
DBGSGET BST -NARE. 


M 
DBGSMAKE_SKELETON_DESC, 
DB YMBOLIZE; 


DIX 
DBGSNPATADESC_fO_CS: NOVALUE, 


DBGSPRIM_TO_VAL: NOVALUE, 
DBGSPRINT_VALUE, ' 
DBGSPRINT-VALUE_AS_INTEGER: NOVALUE,! 
DBGSREL_MEMORY, 

DBGSSCR_WRITE_LINE: NOVALUE, 


DBGSSTA_REGISTER_NAME , 


DBGSSYMID_TO_PRIMARY, 


' 

! 

' 

' 

! 

' 

! 

! 

' 

' 

' 

' 

' 

! 

' 

' 

DBGSSTA_ADDRESS_TO_REGDESCR, ; 

! 

' 

' 

' 

' 

' 

' 

' 

! 

. ' 

DBGSSTA_TYP—SUBRNG: NOVALUE, 

SYSSFAQ, i 

SYSSFAOL; 
EXTERNAL 

DBGS$GL_CURRENT_ PRIMARY, 


DBG$GB_LANGUAGE: BYTE 
DBG$GB 


DBGSGL~LOG~BUF , 
DBGSGL~LOGRAB: BLOCKC.BYTE), 
DBGSGL~ SCREEN OUTPUT, 
DBGSSRU_TERM_QIDTH; 
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GLOBAL 
DBGS$GL_ARRSUB_FLAG, 
DBGSGL~RECCMP~FLAG, 
DBGSGL~SIGN_FCAG; 
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LITERAL 


' Fill 
! Get the name from DST record 

! Get a memory block 

! Get the parent type of a set 

! Get temporary memory block 

! Create skeleton descriptor 

! New symbolization routine 

! Get current radix 

! Print pathname from given pathname 


i Return 
SY 


in VMS Descriptor 


descriptor 


i Turn primary into value 


Print value from descriptor 
Print an absolute address 


! Release a memory block ; 
! Write a Line to a Screen Display 


Determine if a given address is a 
register address and returns a 


register descriptor if it is 


i Return a pointer to a ASCIC string 


containing the appropriate 
register name — , 
eeery Descriptor for the given 


name of data item 

Le a data name 
atomic data information | 
enumeration data information 
set data information _ 
subrange data information 


i Formatter 
' Formatted ASCII Output routine to 


do text formatting 


Pointer to the primary being processed 


! Radix settings 

! RAB for DBGSOUTPUT 

! Output configuration vector 

! Current Language setting 

: Current mode settings — 

! Pointer to log file's filespec 

: RAB for LOG file 

! Screen petet, Sraphay ID or zero 


! Terminal widt 


Flag to indicate array subscripting 

Flag to indicate record component 

Flag to indicate print ‘+’ before 
signed variables 
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PRTSK_COMMON = 0, 
RSTSK-TYPE_COMMON = 0; 


BUF FER_DESCR: VECTORE? LONG] 
INITIAL(132, 0) 
MAX_BRK_ON_BLANKS: INITIAL (6), 
MAX_INDENT: INITIAL(O) 
MAX-PBSIZE: INITIAL(131), 
PBSIZE: INITIAL(O), 
PRINT BUFFER: VECTOR(132,BYTE), 
PRT_CONTINUE: INITIAL(FALSE), 
PRT-INDENT: INITIAL(O), 
PRTSET_CONTINUE: INITIAL(O), 
PRTSET_MARGIN: INITIAL(O), 
PRTBRK_ON_BLANKS: INITIAL(O); 
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14-Sep-19 DBGPRINT .B32;1 


17:4 DEBUG. 


! Dummy index i 
! Load in common print characters 


Descriptor for seuperecy pt ret 


buffer used in DBG INT 


Turn ert the PRTBRK_ON_BLANKS fla 


f the blank character osition 
exceeds this size for this print 


ine 
Maximum indentation Length. 4 
Maximum number of characters which 


may be filled into print buffer 


Current number of characters filled 


into the print buffer 


The DEBUG print buffer 


Flag 


set for continuation Lines 


Total indentation Length 
Continuation indentation Length 
Left margin (for DBGSPRINT buffer) 
A flag to indicate break on blanks 
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98 1 MACRO 
m 0299 1 GET_VALUE (VALUE) = 
m™ 0500 1 
ae 
m 0308 | 
m 0304 1 lf NOT .SUBOVF 
m 0305 1 
m 0306 1 
m 0307 1 
m 0308 1 
m 0309 1 ELSE 
0310 1 


This macro is used in DBGSPRINT_IDENTIFIER. 
ee eee UPLIT BYTE(ZASCIC '!SL"), 


GET_SUBSCRIPT_VALUE(NAMEPTR, UPLIT BYTE(ZASCIC ‘!SL°), .VALUE);%; 
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DEBUG. SRC JDBGPRINT.632;1 (4) 
CRO . 
PRINT_OFFSETS_AND_RETURN = 


This macro is used in DBGSPRINT_IDENTIFIER. It prints out the offset 
and/or bit-field information, as in Xtoffset or X<p,s,e>. 
It then must decide whether to return the original Value Descriptor or the 
constructed Primary Descriptor to DBGSEXAMINE. The general idea is 
that if we have an exact symbolization match, then return the Primary 
so that the value displayed will be of the correct type. 
BEGIN 
! Print the byte offset if it was present. If there was a byte offset, 
then we did not have an exact match so return the Value Descriptor. 
if .BYTE_OFFSET NEQ 0 
THEN 


DBGSPRINT_OFFSET(.BYTE_OFFSET); 


Print the <p,s,e> information if it was present. 
iF .VAL_DESC NEQ 0 
THEN 


BEGIN 
IF .BIT_OFFSET NEQ 0 
DBGSPRINT_F IELD_REF (.VAL_DESC) 


IF (.PRIM_DESCEDBG$B_DHOR_K IND] NEQ RST$K_DATA) AND 
(: PRIM~DESCLOBG$B~DHDR-KIND] NEQ RSTSK~TYPCOMP) 


HEN 
1 se PDOSPRINT_FLELD_REF (VAL _DESC) 
BEGIN 
CAL 
TMP_VALDESC: REF DBGSVALDESC; 
DBGSPRIM_TO_VAL(.PRIM DESC, DBGSK_V_VALUE_ DESC, TMP_VALDESC); 
IF .SAVE_VAC_LENGTH NEQ .TMP_VALDESCCDBG$Q_VALUE_LENGTH) 


THEN 
- DBGSPRINT_FIELD_REF(.VAL_DESC); 


} Put back the original type and length. 
if .SAVE_VAL_DTYPE NEQ 0 
THEN 


BEGIN 
VAL _DESCEDBGS$B_VALUE _D1¥PE] = .SAVE_VAL_DTYPE; 
VAL DESC DBG$W~VALUE-LENGTH] = .SAVE_VAC_LENGTIH; 


IF .VAL_DE 
OR .VAL 43 


sects VALUE _DTYPE 
OR .VAL~DESC 


a 5 EQL DSCS$K_DTYPE_Sv 
DBG$B- VALUE -DTYPE) EQL DSCSK-DTYPE~SVU 
DBGSB-VALUE-DTYPE) EQL DSC$K-DTYPE—V 
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so! - VAL DESCCDBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_vu 
. RETURN .VAL_DESC; 

: If there is no value descriptor or exact match. 

if .VAL_DESC EQL 0 

OR (.BYTE_OFFSET EQL 0 AND .BIT OFFSET EQL 0) 


BEGIN 
poeeCOLLECT<. PR 
RET URN -PRIM_DE 


RETURN .VAL_DESC; 
ENDZ; 


IM_DESC); 
DESC; 


<9o 
ow 


3 
DBGPRINT 1h-s2p-1986 02:27:64 AX-11 Bliss-32 V4.0-742 p 8 
“vOe- ence abe 45:4954 DEBUG. SRC IDBGPRINT.B32¢1 age 5) 


; 3 86 ! MACROS TO GENERATE PRINT TABLES 
ls 9 88 1! 
/3 ©6260 89 1! 

: 261 8 ~ a These macros are used to generate the print tables used by the 

; 26 91 1! Print Primary Symbol Name routines to print both Language-independent 
3 o7 6 : } and language-specific constructs accepted by DEBUG. 

; 265 0394 1 BIND 

> 266 0395 1 TABLEBASE = UPLIT BYTE(ZASCII ‘BASE'); 

; 267 0 38 1 

; 268 0397 1 

; 69 0396 1 ! PRINT CHARACTER TABLE 

; 270 0399 1! 

oe 44 0400 1! 

3 af 0401 1! The Print Character Table has a set of entries to define print characters 
ee ce Be0g 1! to be used in printing for a pizen language. For example, subscript 

3; 276 0405 1 ! character in PASCAL is C, im FORTRAN is (. A Print Character Table is 
; 275 0406 1 ! declared as follows: 

; 276 0405 1! 

3s err 0406 1: PRINT_CHAR_TABLE (TBLNAME, 

; $78 ot 34 { PRINT_CHAR_ENTRY (CODE, NAMESTRING), 

; soe re ! PRINT_CHAR_ENTRY(CODE, NAMESTRING)); 

; 282 0411 1 ! Here TBLNAME is the name of the Print Character Table. NAMESTRING is the 
3 2 pois 1! ASCII string which constitutes the print character(s), CODE is the name 
>; 284 0415 1 ! of the print character. In some Languages, for the same perpese ma 

3 3H Bete ’ } have different codes, for example, in C, Pointer can be *P or P=>x. 

: $B 0416 1 MACRO 

; 288 ™ 0417 1 PRINT CHAR_TABLE(TBLNAME) = 

; «289 m™ 0418 1 OON TBLNAME : VECTORCPRTSK_MAX_PRTCHAR, LONG] 

; 290 0419 1 PSECT(DBGSPLIT) PRESETTXREMAINING) %; 

: 291 0420 1 

3 9 0421 1 CRO 

; il oh 53 1 PRINT _CHAR_ENTRY(CODE, NAMESTRING) = 

; 294 m 042 1 C2NAME™('PRTSK_*, CODE, ‘_CHAR')] = 

> 295 0424 1 UPLIT BYTE(ZASCIC”NAMESTRING) - TABLEBASE 2%; 

; 296 Res? 1 

; 297 0426 1 

3 98 0427 1 ! PRINT INFORMATION TABLE 

; 299 0428 1! 

; 300 0429 1! : 

; 301 0450 1 ! The Print Information Table for a language is a blockvector indexed by 
3 4 0431 1! FCODE. For each FCODE, it gives the print routine index, and the 

: 30 0432 1 ! address of the corresponding Print Character Table. All addresses are 
: 30s Be 82 : ; relative to TABLEBASE. A Print Information Table is declared as follows: 
3 0435 1! PRINT_INFO_ TABLE ( TBLNAME 

3 4 ok 3 : PRINT_INFO_ENTRY(FCODE, ROUT_INDEX, PRINT_CHAR_TABLE), 

; +4 oh : PRINT_INFO_ENTRY(FCODE, ROUT_INDEX, PRINT_CHAR_TABLE); 

: Sti 440 1 ! Here TBLNAME is the name of the Print Information Table. ROUT_INDEX is 
; ig 0441 1 ! the Print Routine for the given FCODE. PRINT_CHAR_TABLE points to 

s. 3 0442 1! Print Character Table which contains language-specific print characters 


Ss 


0 GPRINT 
v04-000 


FR 
nee 


=> 


DONAV EWN -OOONOUE Ww 


ee ee ee 
OOOOODOOCOOOOOCOooO 


Ek ek ek el el Dal Sl al ek ek a ta 
DAVIDA E ££ 


WN “OVO ONOUVESWN (OOONOUE 
BEszz 


WWAWAO PUPP POPOPONony.-.2 2 2 


LAAN AAAI 
onoOw 
oO 
= 
o 
w 


w 
Oo 
o 
= 
oa 
oo 


PUPA AGIA 


Be Be Be Oe Be Be Se Oe Se Se Se Oe Be Be Be Se Se Se Se FH Fe Se Oe Be Be Se Se Ge Se Se Fe Ge Se Se Be Se Se Ss Se Se Se Se Se Se Se Se Oe Se Se Se Se Se Se Se Se Geese 
Ww 
= 
oO 
S 
~N 
— 


SESS SPOS OO 


CODON VE WO OONOUEwn oO 
So 
5 
@ 
fe] 


2 
| 


a ed ad ed od dd dd Dd dd td 


J 3 
197% ep-1984 2 9s! tS AX-11 Bliss-32 V4.0-74 
14-Sep 5- 1984 DEBUG. SRC JDBGPRINT.B32;1 


for the given FCODE. 


RO 
PRINT_INFO TABLE (TBLNAME) : 
vs ZLENGTH EQL 1 


HEN 
OWN TBLNAME: PRTINFOSTABLE PSECT(DBGSPLIT) 
se INITIALCREP RSTSK_TYPE_MAXIMUM OF (0)) 


E 
OF] rm TBLNAME : PRTINFOSTABLE PSECT(DBGSPLIT) PRESET (REMAINING) 


ROUT INDEX, CHARTBL) 

vee FCOD » PRTINFOSL_ROUT_INDEX] = 

NAM RTSK_" * INDEX) 

CXNAME (' thst TYPE." hou PRTINFOSL_CHARTBL] = 
HARTBL - TABLEBASE 2: 


CRO 
PRINT INFO op eTey tr CODE 
CZNAME™ ‘eee 


TABLE OF LANGUAGE-SPECIFIC TABLES 


Define the macro which builds the table of pointers to the language-specific 
re tables. Each pointer is relative to TABLEBASE. The macro is used as 
ollows: 


LANGUAGE PRINT _TABLES(LANGUAGE = Language-name, 
INFO_TABLE = Print Information fable, 
INFO_FLAG = Print Information he 5 true-or-false, 
Reference Modifier Flag true-or-false, 
Array Subscript Flag gis oe pt 
Record Component Flag true-or-false) 
Print ‘+ for signed variables Flag true-or-false); 


RECCRP FLAG 
SIGN_FCAG 


Note: ~ these days those flags should be changed to bit instead of long 
word. 


Here INFO_FLAG is an indicator to indicate how we want ay name to be printed. 
For example, record component Y in record X, in PASCAL print it as X.Y 
(ftag sets to TRUE), in COBOL, we print it as Y OF X (flag sets to FALSE). 
REFMOD_FLAG is an indicator to indicate how we want ye reference modifier 

to be printed. For example, in FORTRAN oegtas :end) (flag sets to TRUE), 

in COBOL (begin:length) (flag sets to FALSE ARRSUB_FLAG is used to 
indicate whether the Language has array concept or not. (similar idea with 
RECCMP_FLAG). These flags primarily are used for symbolization purposes. 

ie, using fortran progres. set lang to macro, which macro does not understand 
the areas so we'll print address+offset instead of arr(i,j). GN_FLAG 

is used for the language to print out ‘+ before the signed variables. 


KE YWORDMACRO 
LANGUAGE _PRINT amet TN ST: 
INFO_T ABLE= TABLEBASE. 


RECCRP™ “FLAG= TRUE 


<2 


; $7 Ll 

; of m 

© 7 ™ § 
; 374 sl 

$ af mM 4 
: 376 Mm 0505 
; aft ” 9208 
>; 3578 050 


fs be tt 


. 2 
1e= 356-1982 93:95:28 HokauG. Sac Sbacer Int 
N_FLAG = Thats) . 


BIND BNANE (LANGUAGE, *“PRINT ) 
UPLIT CINFO_TABLE = TABLEBASE, 
INES FLAG 


REFMOD FLAG, 
ARRSUB_FLAG, 
RECCMP-FLAG, 
SIGN, FCAG) “VECTORE,LONG] % 


row al 
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; 380 5 1! PRINT TAB S 

. aE s 

: 38 9 1 

; Be ig : This se includes all the tables needed to print the ADA symbols. 
. ae 

: $4 b21$ : Define the ADA Language Print Tables. 

: 390 P 518 1 PRINT_CHAR TABLE (ADA. COMMON CHAR, 

3; 391 Pp 2} 1 PRINT_CHAR_ERT FRY CBESIN. ("), 

3 3 P0520 1 PRINT “CHAR ENTRY ( SEPARATOR a. FP 

; 95 05 1 PRINT~CHAR-ENTRY(END, ')')5; 

: 395 P 05 i 1 PRINT_CHAR_TABLE(ADA_ARRAY_CHAR, 

; 396 P 0524 (1 PRINT_CHAR_ENTRY (BEGIN, ('), 

: 397 P0525 1 PRINT “CHAR “ENTRY ( SEPARATOR *4.. 

; 98 03 6 PRINT-CHAR-ENTRY(END, °)°)5; 

: 400 P 0528 1 PRINT_CHAR_TABLE(ADA_POINTER_CHAR, 

; $33 3 , ' PRINT_CHAR ENTRY (SEPARATOR, *.ALL")); 

: 40 P 0531 1 PRINT_CHAR_TABLE(ADA_RECORD_CHAR, 

; oe O26 : PRINT_CHAR _ERTRY (SEPARATOR, ad} 

: 406 P 0834 1 PRINT_INFO_TABLE(ADA_INFO_TABLE, 

3; 407 P0535 1 PRINT_INFO_ ERTRY (COMMON: COMMON, ADA Connon CHAR) . 
: 408 P 0536 (1 PRINT? ~INFO_ ENTRYCARRAT ARRAY, ADA_ARRA 

; 409 P 0537 1 PRINT. INFO” ENTRYCTETR, "POINTER, ADA APOINTER. CHAR) . 
: 610 P0538 1 PRINT_INFO_ENTRY(FILE, POINTER, ADA-POINTER-CHAR) , 
: 411 P 0539 1 PRINT~INFO-ENTRY(RECORD, RECORD, ADA _RECORD~CHAR). 
: 28 Reet : PRINT~INFO-ENTRY(VARIANT, VARIANT, ADA_RECORD_CHAR)); 
: 414 P 0548 1 LANGUAGE PRINT TABLES(LANGUAGE = ADA, 

> 415 P0543 1 NFO_TABLE = ADA_INFO_TABLE, 

: 416 0544 1 INFO-FLAG = TRUE. 

: 417 0545 1 REFMOD_FLAG = TRUE); 
| 
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} 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Pee Se Oe Be Se Se Se Se Se Be Se SESH TH Se Be Se Oe Se Se SESH Se Se Se Se Se Se Se Se Se Se ee Seen Se Se Se ee ee Se ee BH SH Se ae 


veer NT 


s 
_ 
oO 


WN “SO DONOUSWN—O 


o eeamaahanstanehanaake 


v vvv vuvv 


vuvuvv 
SNS SSS NSA AAA AA AAA A MMIII 


SO ODNAOUE WA $0 ODNOA UE WUN (OOS NAUE WN OOOO 


vuvvUvUU 
GOQOCoCoooooooooooooooooooOoCoOoOCOoOoOOoOCoOooOOo 


Ab tb bbedbbhcbbchh dh db dh dh db th db tb ab ah dh dh db ab Ah Ab Ab Ah Ab ah ah ah kal 


es ts — 4s 2d os bs — 2d as 5s ss a a 


14-Sep-1984 
BASIC PRINT TABLES 


DEBUG.S 


This section includes all the tables needed to print the BASIC symbols. 


i Define the BASIC Language Print Tables. 


RINT_CHAR_ TABLE (BASIC_COMMON CHAR, 
PRINT_CHAR_ENTRY (BEGIN P 
PRINTS ~CHAR A TTL ay 2"), 
PRINT-CHAR-ENTRY(END, ')')5; 


PRINT_CHAR_ TABLE (BASIC ARRAY ritae 
PRINT = CHAR ENTRY (B "(" . 
PRINT" “CHA RTENTRY (SEPARATOR 8%. 
PRINT~CHAR-ENTRY(END, ')')5; 


PRINT_CHAR_ TABLE (BASIC_RECORD_CHAR, 
PRINT_CHAR_ENTRY(SEPARATOR, '::')); 


PRINT_INFO TABLE (BASIC INFO_TABLE, 
PRINT_INFO_ENTRY (COMMON, COMMON, BASIC COMMON CHAR), 
PRINT INFO? ENTRY(ARRAY, ARRAY, BASIC_ARRAY_ CHAR) 
PRINT-INFO-ENTRY(RECORD, RECORD, BASIC RECORD CHAR) 
PRINT~INFO-ENTRY(VARIANT, VARIANT, BASTC_RECORD_CHAR)); 


LANGUAGE _PRINT_TABLES(LANGUAGE = BASIC, 
TNFO_TABLE = asic. INFO_TABLE, 


‘ 
' 
' 
i 
! 
' 
! 
i 
' 
i 
P 


“FLAG = 
RECCMP-FLAG = TRUE, 
SIGN_FCAG = FALSE); 


mw 3 
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vuvuv 
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16-Sep-1984 02:27:4 

1e-8ep-19 4 a 
BLISS PRINT TABLES 


i Define the BLISS Language Print Tables. 


RINT_CHAR_TABLE (BLISS ARRAY CHAR 
PRINT_CHAR_ENTRY (BEGIN d ye P 
PRINT CHAR ENTRY (SEPARATOR A 
PRINT-CHAR-ENTRY(END, 'J')5; 


PRINT_INFO_TABLE(BLISS_INFO_TABLE 
PRINT_INFO_ENTRY(ARRAY, ARRAY, BLISS_ARRAY_CHAR)); 


LANGUAGE _PRINT_TABLES(LANGUAGE = BLISS, 
TNEO by oh INFO_TABLE, 


' 
' 
' 
' 
' 
' 
' 
i 
' 
i 
Pp 


O7F UE 
REFMOD_FLAG = TRUE, 
ARRSUB~ FLAG = TRUE 
RECCMP"FLAG = FALSE, 
SIGN_ FLAG = FALSE); 


sn 


This section includes all the tables needed to print the BLISS symbols. 


i 


i 
3 | 

| 

| 

| 


; 48 07 #1 
; 48 608 1 
3 4 0609 1 
; 485 0610 1 
; 486 0611 1 
: 487 Beis 1 
; 488 0615 1 
: 489 0614 1 
; 490 0615 1 
: 491 Bo18 1 
; 49 P 061 1 
; 49 2 Role 1 
>; 494 P 0619 1 
; 495 0620 1 
; 496 0621 1 
: 497 P 06 ; 1 
; 498 P 06 1 
; 4699 P 0624 1 
; $00 0625 1 
s S01 0626 1 
3 206 P 0627 1 
; P 0628 1 
> 504 bbe? 1 
; 505 0630 1 
: 506 P 0631 1 
s 507 0632 i 
s 508 0633 1 
; 509 P 0634 «(1 
s $10 P 0635 1 
S Sey P 0636 1 
, Siz P 0637 1 
3 31S P 0638 1 
> 514 0639 1 
s 515 0640 1 
s 36 P 0641 1 
s $17 P 0642 1 
; 518 P 0643 1 
:; #519 P 0644 1 
3 S20 P 0645 1 
s Sey P 0646 1 
s $22 0647 1 


18-Sep-1984 0g: f 4 AX-11 BL Page 


Liss-32 V 
14-Sep-19 DEBUG.SR RCI DBGPRIN 


C PRINT TABLES . | 
| 
| 


This section includes all the tables needed to print the C symbols. 


Define the C Language Print Tables. 


PRINT_CHAR_TABLE(C ~£OMMON CHAR, 
PRINT_CHAR_ENTRY(BEGIN, 'C 
PRINTS “CHAR “ENTRY (SEPARATOR 
PRINT-CHAR-ENTRY(END, 'J') Ms 


PRINT_CHAR_TABLE(C_ARRAY CHAR. 
PRINT_CHAR_ENTRY TBE te 

PRINT “CHAR ENTRY (SEPARATOR 
PRINT-CHAR-ENTRY(END, 'J')5; 


PRINT_CHAR_TABLE(C_POINTER_ CHAR 
PRINT_CHAR TENTRY (SEPARATOR, 
PRINT? “CHARTENTRY (RECPTR, 


PRINT_CHAR_TABLE(C_RECORD CHAR, 
PRINT_CHAR-ENTRY (SEPARATOR, 


PRINT_INFO TABLE (¢ INFO_TABLE, 
PRINT_INF OnENTRY (COMMON, COMMON 
PRINT? ~ INFO? ENTRY(ARRAY, ARRAY, C_ 
PRINT_INFO-ENTRY(TPTR, POINTER : 
PRINT-INFO-ENTRY(RECORD, RECORD ¢ 
PRINT~INFO-ENTRY(VARIANT, VARIANT. 


LANGUAGE PRINT TABLES (LANGUAGE = ¢, 
T ABLE = cot INFO_TABLE, 


mm mm me me mem 


“s 
fe"), 


30"), 


o°). 
>! it B. 


a i) 


“we CHAR), 


OTNTER CHAR), 
RECORD CHAR), 
RECORD. CHAR)); 


one 


RECCHP”FLAG = TRUE. 
SIGN_ craks FALSE); 


aE 


¢ 4 
GPRINT 16-Sep-1984 0 AX=-11 Bliss-32 V4.0-742 
we 600 14-Sep-1984 0g eo 8 DEBUG. RCIDBGERINT BS201 
! 
3 $ 0648 ' COBOL PRINT TABLES 
3 g 0650 1: 
3 0651 1} 
: ; : $636 : This section includes all the tables needed to print the COBOL symbols. 
; §30 0654 1: 
: 531 0655 1: 
: 2 ¢ be28 ! Define the COBOL Language Print Tables. 
3 § P 0658 1 PRINT_CHAR TABLE (COBOL COMMON. CHAR, 
3; 535 P 0659 1 PRINT_CHAR_ENTRY(BEGINA, '( , 
: 536 P 0660 1 PRINT “CHAR TENTRY (SEPARATOR :"), 
; 237 0661 PRINT-CHAR-ENTRY(END, ')')5; 
: §39 P pees 1 PRINT_CHAR_TABLE (COBOL_ARRAY_CHAR, 
; 540 P 0664 1 PRINT TCHAR_E NTRY(BEGIN, '(" PF 
> 541 P 0665 1 PRINT=¢ RTENTRY ( SEPARATOR A 8 
; 342 0666 1 PRINT~ “CHAR “ENTRY(END, ')' 5 
: 54 0667 1 
: 544 P 0668 1 PRINT_CHAR_TABLE(COBOL_RECORD_CHAR, 
: “4° 0668 PRINT_CHAR _ENTRY (SEPARATOR, "of ')); 
: 547 0671 1 PRINT_INFO TABLE (COBOL INFO TABLE, 
; 548 0672 1 PRINT NT INFO. ENTRY(COMMON, COMMON COBOL COMMON CHAR) , 
: 549 P 0673 1 TIINFO” a aay ARRAY, COBOL_ARRA R), 
; 550 0674 1 PRINT: “INFO-ENTRY(RECORD, RECORD epee ~COBOL “RECORD CHAR), 
; 351 0675 PRINT~INFO-ENTRY(VARIANT, VARIANT, COBOL_RECORD_CRAR)); 
; aeg P 0677 1 LANGUAGE PRINT TABLES (LANGUAGE = COBOL, 
3 554 0678 #1 INFO_TABLE = COBOL_INFO_TABLE, 
: 555 P 0679 1 INFO” FLAG = rarer 
: 556 P 0680 1 REFMOD FLAG = FALSE, . 
: 557 P 0681 1 ARRSUB-FLAG = TRUE, 
: 558 P 0682 1 RECCMP"FLAG = TRUE, 
: 559 0683 1 SIGN_FCAG = TRUE); 
j 
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Be 000 146$ ats yi Og: ¢rie DEBUG. SRC IDB BGPRI 19558. 1 


| $84 FORTRAN PRINT TABLES 
| ig 685 
06 § 


t-——_— --- —_—__—_— SS 


. 1! 
a i 
; 1! 
: 3es tat 1 i Thi ion includes all the tabl ded int the FORTRA bol 
Ps : S$ section includes a the tables needed to print the N symbols. 
: 566 0689 1! 
3 4 0690 1! 
; 68 0691 1! 
; 233 Roe ; Define the FORTRAN Language Print Tables. 
3 ans P 0694 1 PRINT_CHAR_TABLE (FORTRAN COMMON. CHAR, 
; 276 P 0695 1 PRINT_CHAR_ENTRYCBEGIN, '( "Ye 
oe P 0696 1 PRINT “CHAR ENTRY (SEPARATOR 2"), 
; 574 0697 1 PRINT-CHAR-ENTRY(END, ')')5; 
: ors 0698 1 
; 576 P 0699 1 PRINT_CHAR TABLE (FORTRAN ARRAY_CHAR, 
; 577 P0700 1 PRINT_CHAR_ENTRYCBEGIN, “Ct. 
; 278 P0701 1 PRINT" “CHAR ENTRY ( SEPARATOR “, 
: 579 0708 1 PRINT~CHAR-ENTRY(END, ')')5; 
: $80 0703 1 
; «(581 P 0704 1 PRINT_CHAR TABLE (FORTRAN RECORD CHAR, 
; ob¢ 4484 ; PRINT_CHAR_ENTRYTSEPARATOR, ‘.')); 
; 584 P 0707 1 PRINT_INFO_TABLE(FORTRAN_INFO TABLE, 
- 585 P0708 1 PRINT_INFO_ENTRYCCOMMON, COMMON, FORTRAN COMFON CHAR) . 
; 586 P 0709 1 PRINT INFO_ENTRY(ARRAY, ARRAY, FORTRAN_ARRAY_C 
; oe? o710 PRINT-INFO-ENTRY(RECORD, RECORD, FORTRAN_ RECORD. CHAR) ): 
> 589 Pp O72 1 LANGUAGE _PRINT_TABLES(LANGUAGE = FORTRAN, 
; 590 P0713 1 INFO_TABLE = FORTRAN_INFO_TABLE, 
; 591 P0714 1 INFO-FLAG = TRUE, 
3 oe P0715 1 REFMOD_FLAG = TRUE, 
; 593 P0716 1 ARRSUB_FLAG = TRUE, 
3 594 P0717 1 RECCMP-FLAG = TRUE, 
; 595 0718 1 SIGN_FLAG = FALSE); 
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66-Sep-1984 96:47:68 VAX-11 B 
4 98 17:40 UOEBUG. ER 
MACRO PRINT 


This section includes all the tables needed to print the MACRO 


Define the MACRO Language Print Tables. 
PRINT_INFO_TABLE (MACRO_INFO_TABLE); 


LANGUAGE PRINT TABLES(LANGUAGE = MACRO, 
INFO_TABLE = —, INFO_TABLE, 


T 
REFMOD_FLAG = TRUE 
ARRSUB"FLAG = FALSE, 
RECCMP FLAG = FALSE, 
SIGN_FCAG = FALSE); 


iss-32 V 
RCD DBGPRINT. aso. 1 


symbols. 


GPR NT 
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mrrorrr 
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PASTtAL PRIGT 3 ES 


This section includes all the tables needed to print the PASCAL symbols. 


i Define the PASCAL Language Print Tables. 


RINT_CHAR_ TABLE (PASCAL COMMON CHAR 
PRINT_CHAR_ENTRY (BE ‘ce ts 

PRINT CHAR ~ENTRY (SEPARATOR fer), 
PRINT-CHAR-ENTRY(END, 'J' MS . 


PRINT_CHAR TABLE (PASCAL ARRAY CHAR, 
PRINT_CHAR_ENTRY (BEGIN, “cf FP 
PRINTS ~CHART ENTRY (SEPARATOR 5. e 
PRINT-CHAR-ENTRY(END, 'J')); 


PRINT_CHAR TABLE (PASCAL POINTER, CHAR, 
PRINT_CHAR_ENTRY (SEPARATOR, '*')); 


PRINT_CHAR_TABLE (PASCAL_RECORD_CHAR, 
PRINT_CHAR_ENTRY(SEPARATOR, °.')); 


PRINT_INFO ae AW: INFO_TABLE, 
PRINT_INFO_ENTRY(COMMON, COMMON, PASCAL_COMMON_CHAR), 


! 
' 
! 
' 
' 
' 
' 
i 
' 
i 
Pp 


E 
PRINT_INFO_ ENTRY(RECORD, RECORD, PASCAC_RECORD~CHAR). 
PRINT_INFO_ “ENTRY(VARIANT, VARIANT, PASCAL RECORD_ CHAR)); 


LANGUAGE PRINT TABLES(LANGUAGE = PASCAL, 
TNFO_TABLE gh ee INFO_ TABLE, 


a 
i=! 


RECCMP"FLAG : TRUE. 
SIGN_ FAG = FALSE); 


Sep-1986 19:17:40 EDEBUG. SRCIOBGPRINT 
L 


_DBGPR NT 1-se =3007 1384 Og eeie AX-11 BL A tesa zg V4.0-742 
Vv 14-Sep-1984 12:17:4 DEBUG. SRCJDBGPRINT.B32; 1 


ré&a PRINT TABLES 
This section includes all the tables needed to print the PLI symbols. 


Define the PLI Language Print Tables. 


PRINT_CHAR_TABLE(PLI_COMMON_C R, 
PRINT_CHAR_ERT FRYCBEGIN. ("), 
PRINT “CHAR ~ENTRY (SEPARATOR 2"), 
PRINT~CHAR-ENTRY(END, ')*)5; 


PRINT_CHAR_TABLE(PLI_ARRAY_ CHAR, 
PRINT_CHAR_ERTRY(BEGIN, ‘(* FP 
PRINT “CHAR TENTRY (SEPARATOR ao 
PRINT-CHAR-ENTRY(END, ')')5; 


PRINT _CHAR_ TABLE(PLI POINTER CHAR, 
PRINT_CHAR _ERTRY (SEPARATOR, *e>*))5 


PRINT_CHAR_TABLE(PLI_RECORD_CHAR 
PRINT_CHAR_ENTRY(SEPARATOR, '.') 


PRINT_INFO TABLE (PLI INFO_TABLE, 
PRINT O-ERTRY (COMMON, COMMON, PLI_COMMON_CHAR), 
PRINTS INFO “ENTRY(ARRAY, ARRAY, PLI_ ARRAY CHAR), 
“ENTRY(PTR, POINTER, PLI “POINTER C 
PRINT-INFO-ENTRY(RECORD, RECORD C_PLI, PLI “RECORD CHAR), 
PRINT~INFO-ENTRY(VARIANT, VARIANT, ti _RECORD_CHAR)); 


LANGUAGE _PRINT_TABLES(LANGUAGE = PLI, 
INFO_TABLE = Ppt INFO_TABLE, 
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BECCA FLAG = TRUE, 
SIGN_FCAG = FALSE); 


vuvvvvU 
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een 1orge8= 138 93:95:2 DEBUG. GRCIDBGPRINT B5341 Page 48 


3 819 1! RPG PRINT TABLES 

3 roe Bs alge 

Ie 17% 

oe es¢ 1! * 

: pe Bs ? : } This section includes all the tables needed to print the RPG symbols. 
ye 0825 1: 

; 70$ OB $ 1! 

3 Ate ee i ' ; Define the RPG Language Print Tables. 

: 710 P 0829 1 PRINT_CHAR_TABLE<RPG COMMON CHA R, 

3 711 Pp Os 0 1 PRINT_CHAR_ERTRY(B sonk Me 

: re Pp 0831 1 PRINT “CHAR_ENTRY (SEPARATOR *), 

; 3 08 ¢ ! PRINT_CHAR_ENTRY(END, ')')); 

: 715 P 0834 1 PRINT_CHAR_TABLE(RPG_ ARRAY CHAR, 

: ay P 0835 1 PRINT_CHAR_ERTRY(BEGIN, ‘(' PF 

: 71 P 08 § 1 PRINT SHAR TENTRY (SEPARATOR "he 

: 718 0837 1 PRINT~CHAR-ENTRY(END, ')')5; 

Bo RY 

: 221 P 0840 1 PRINT_INFO_TABLE(RPG_INFO_TABLE, 

EE ¢ P 0841 1 PRINT_INFO_ ERTRY (COMMON, COMMON, RPG COMMON CHAR), 
: 23 O86e | PRINT “INFOTENTRY(ARRAY, ARRAY, RPG_ARRAY_CHAR)); 
3; 725 P 0844 1 LANGUAGE_PRINT_TABLES(LANGUAGE = RPG, 

: 726 P 0845 1 TNFO_TABLE = RPG_INFO_TABLE, 

: 727 P 0846 1 INFO-FLAG = FALS 

: 728 P 0847 1 REFMOD_FLAG = FALSE, 

: 729 P 0848 1 ARRSUB_FLAG = TRUE 

: 730 P 0849 1 RECCMP "FLAG = FALSE, 

; 731 0850 1 SIGN_FCAG = FALSE); 


rbese S$ep-1984 27:4 AX-11 Bliss-32 V4.0-742 Pp 21 
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UNKNOWN PRINT TABLES 


This section includes all the tables needed to print language 
UNKNOWN symbols. 


Language UNKNOWN has records and arrays. Define print syntax for them 
which corresponds to syntax given in DBGPARSER. 


PRINT ~CMORINT CHAR ENTRY ARRAY _CHAR 


5 eee 


vuvuv 


MEW OOONO UNE wn 


AAO 


T CHAR_ENTRYTBEGIN, '('5 
PRINT~CHAR-ENTRY (SEPARATOR 
PRINT—CHAR-ENTRY(END, ')*)5; 


-), 


PRINT_CHAR_ TABLE (UNKNOWN RECORD CHAR 


COOCOCCOCOCOCOCOCOOOCOOOOOCOoOO 


PRINT_CHAR_ENTRYCSEPARATOR, '.')); 


PRINT_CHAR_ TABLE (UNKNOWN POINTER CHAR 


PRINT ~INERINT INFO. ENTRY INFO TAB 


PRINT_CHAR_ENTRYCSEPARATOR, '4")); 


BLE, 
INFO_ENTRYTARRAY, ARRAY UNKNOWN _ARRAY_CHAR), 
PRINT-INFO-ENTRY(TPTR, POINTER, UNKNOWN POINTER_ CHAR) 


PRINT-INFO-ENTRY(VARIANT, VARIANT, UNKNOGN_ setoas CHAR)); 


LANGUAGE Er O TRBLE © UNKNOMN. I = UNKNOWN, 


> ee a a _ _d _ > sb se s  _5 — _d _  _d _ —  _ _ _ - t _ 


TABLE = UNKNOWN_INFO_TABLE, 
INFO-FLAG = TRUE, 
MOD_FLAG = TRUE, 
ARRSUB_FLAG = TRUE, 
RECCMP FLAG = TRUE, 
SIGN_FCAG = FALSE); 


| J 4 
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7% 


TABLE OF POINTER O LANGUAGE TABLES 


.% 
B89 | | 
77 90 1! 
774 91 3! 
775 0 3 7% This section contains the table of pointers to the penpespe-yees tts 
77 9s 1 8 tables of print table pointers. In other words, this table is indexed 
77 9% «#1! by language code to yield a pointer (relative to TABLEBASE) to the 
778 95 1! table of table pointers build by the LANGUAGE_PRINT_TABLES macro 
93 : for the individual language above. 
Bees 1! 
444 : } Define the table of pointers to language-specific tables. 
84 0901 1 OWN 
785 0902 1 LANGUAGE _PRINT route PTRS: 
ree 320? : VECTORCDBGSK_MAX_LANGUAGE + 1, LONG] PSECT(DBGSPLIT) PRESET( 
788 0905 1 DBGSK_MACRO)] | = MACRO_PRINT TABLE = TABLEBASE, ' MACRO 
789 0906 1 DBGSK_FORTRAN] = FORTRAN PRIRT_TABLE - TABLEBASE, ' FORTRAN 
0907 1 DBG$K-BLISS)] = BLISS_PRINT_TABLE = TABLEBASE, ! BLISS 
791 0908 1 $k_COBOL a OL_PRINT_TABLE = TABLEBASE, ! COBOL 
79 0909 1 oer gl h = BASIC PRINT TABLE = TABLEBASE, ' BASIC 
79 0910 1 $K_PLI = PLI_PRINT_TABLE - TABLEBASE, ' PLI 
794 0911 1 DBGSK_PASCAL] = PASTAL_PRINT_ TABLE = TABLEBASE, ' PASCAL 
795 0912 1 DBGSK_C) = C_PRINT TABLE - TABLEBASE, '¢ 
96 0913 1 DBGSK_RPG) = RPG_PRINT_TABLE - TABLEBASE, i RPG 
797 0914 #1 DBG$K_ADA) = ADA_PRINT_TABL - TABLEBASE, ' ADA 
798 0915 1 CDOBGSK-UNKNOWN) = UNKNOWN_PRINT_TABLE - TABLEBASE); ! UNKNOWN 
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FIELD sg! ete FLD_DEF = 


PRTIDSSTACK_PTR = (0 
PRTIDSSTACK_FLAG = [ 


TES; 


LITERAL 
PRINT_STACK_SIZE = 1 
PRINT-STACK-START = 
MACRO 
PRTIDSSTACK = BLOCKV 
FIEL 


> 
i, 60/) 


pA pe 


4 
ep-1984 Se VAX=-11 Bliss-32 V 
ep-1984 12:17:40 


Pointer 

Flag set to indicate PTR field is 
a pointer to value descritptor 
and pointer to ASCIC string 


Stack size for the print name stack 
Start stack pointer 


pare SIZE :: BYTE] 


DEFS % 


42 
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GLOBAL ROUTINE DBGSFAO_OUT(STRING, ARGUMENTS) 


i FUNCTION 


formatti ng via a call on SYSSFAOL. 
e 


1B-Se0-1986 02:27 


: NOVALUE = 


AX-11 Bliss-32 V4.0-742 Page r+ 
DEBUG. SRC JDBGPRINT .B32;1 (19) 


This routine formats an output otetng using FAO and urises the 
formatted string to DBGSOUTPUT and the log file (if an FAO 


qormetyed os oy Output--see the System Services Manua “does the 


The formatted text string is 


' 
} 
i 
i 
then written out by routine DBGSWRITE OUTPUT. 
i INPUTS 
STRING - The address of a Counted ASCII FAO control string. 
i ARGUMENTS - Zero or more arguments to be applied to the FAO 
: control string. 
i OUTPUTS 
NON 
BEGIN 


Pp 
STRING: REF VECTORC,BYTE); 


LOCAL 
BUFFER: VECTORC132,BYTE), 


Ine ge VECTORC2,LONG), 
OUT_DESC: VECTORC2, LONG); 


' Set up the descriptors needed for the SYSSFAOL call. 


! Address of FAO control string 


Buffer to gl output string from 


SYSSFA 


i S$trin descrip 


! Lengt of SYS 
: String 


descriptor for 
output buffer 


tor for input byt cer 
F AOL one string 


YS$FAOL 


Then call SYSS$FAOL 


' to format the text string and call DBGSWRITE_OUTPUT to actually output 
the some to DBGSOUTPUT and the log file, if any. 


INP_DESC = STRING £0; 
INP_DESC = STRING (1); 
Our ~DESC = 131; 
= BUFFER 
aurepest C13 DESC, L 
posnun Te OUTPUT (<LENGTH, BUFFER) 
END; 
45 53 $) 4 
2€ $f 


ER; 
LENGTH, OUT tom ARGUMENTS); 


-TITLE 
- IDENT 


-PSECT 
AA: .ASCII 


00000 P.A 
00004 P.AAB: .ASCII 
00006 P.A 


AC: .ASCII 


DBGPRINT 

\V04-000\ 

DBGSPLIT,NOWRT, SHR, PIC,0 

\BASE\ 3 
<IOV\C\ : 
<2>\..\ ; 


08 


4C¢ 
4C 


v-e————— ——__$_—__— 


00000009 


00000020 


00000024 00000001 


00000003 
00000000 00000001 


00000001 00000001 


00000134 


0000014¢ 


00000150 00000001 


| 


29 01 
00000006 00000004 
8 01 
fg 
9 01 
Q000001E 0000001C 


4C 4C 41 2E 04 
004 
00000034 
2— 01 
004 
0000004C 
00000000 
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4 
=-Sep-1984 02:27: 
-Sep-1984 05:45: 
P.AAD: .ASCII 
-BLKB 
ADA_COMMON_ CHAR: 
. LONG 
BLK 
P.AAE: .ASCII 
P.AAF: .ASCII 
P.AAG ASCII 
-BLKB 
ADA_ARRAY_ CHAR: 
. CONG 
-BLKB 
P.AAH: “ASCII 
ADA_POINTER_CHAR 
-BYTE 
LONG 
LKB 
P.AAI: .ASCII 
-BLKB 
ADA_RECORD_CHAR: 
-BYTE 
. LONG 
-BLKB 
ADA_INFO_TABLE: 
~ LONG 
BYTE 
LONG 
BYTE 
LONG 
BYTE 
LONG 
-BLKB 
P.AAJ: .LONG 
P.AAK: .ASCII 
P.AAL: .ASCII 
P.AAM: .ASCII 
-BLKB 
BASIC_COMMON_CHA 
-LONG 
LKB 
P.AAN: ASCII 
P.AAO ASCII 
P.AAP: .ASCII 
-BLKB 
BASIC_ARRAY_ CHAR 
. LONG 
P.AAQ: .ASCII 
-BLK 
BASIC_RECORD CHA 
-BYTE 
. LONG 
-BLKB 
BASIC_INFO_TABLE 
. LONG 
BYTE 


4 AX-11 PL igsete V4.0-742 
4 DEBUG. SRC JDBGPRINT.B32;1 


<1IDOVDN 
1 


28, 30, 32 
<4>\.ALL\ 


NA AA DNMINONONOCO Gao fr 
Os OP Cr OP 


R: 
7%. 306, 308 


728. 330, 332 
<2>\::\ 
R: 
9b33 
2 


g 
6 312, 1, 336 
(403 


re 


00000000 00000001 


00000000 00000000 00000001 


00000000 00000001 


——EEE 


00000001 


00000248 


00000001 


00000330 


00000349 


0000034C 00000001 


00000378 00000006 


00000001 


00000164 
00000164 
00000001 


00000003 


00000174 
3B 01 
gf 1 

D 01 


00000246 00000244 


0 
0000024C 00000001 


00000001 sat a 


0000032E 0000032C 
5B 01 
5D 02 
5D 01 
00000346 00000344 


58 


So0ees xe 
0000035E 
2€ 01 


004 


00000374 


00000334 00000000 


0 
00000005 
000000 
00000388 
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00000364 
00000378 
00000001 


-—— 
oz 


00000007" 


Oo 
& 
oo 
oo 
—MOO® ODOOLO LMOMOLOLF OO OPORHLOLOLO 
wv vw 


SNS SNSNNSOOo bert ag SPELL AWWA OO VM LLL ESN OTPY 


co 
Mo > COWOOCICDCD Sa Oo fore 


Of 


VIVAL IMO WO 
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4 
-Sep-1984 : 
-Sep-1984 95:4 
LONG 
BYTE 
LONG 
-BLKB 
P.AAR: .LONG 
AAS: ASCII 
P.AAT: .ASCII 
AAU: .ASCII 
.BLKB 
BLISS_ARRAY_ CHAR: 
. LONG 
-BLKB 
BLISS_INFO_ TABLE 
-BYTE 
~LONG 
BLK 
P.AAV: .LONG 
AAW: ASCII 
P.AAX: .ASCII 
P.AAY: .ASCII 
BLK 
C_COMMON_ CHAR: 
~LONG 
-BLKB 
P.AAZ: .ASCII 
-ABA: .ASCII 
P.ABB: .ASCII 
.BLKB 
C_ARRAY_CHAR: 
~LONG 
BLK 
P.ABC: .ASCII 
P.ABD: .ASCII 


“LONG 
“BYTE 
“LONG 
P.ABE: ASCII 
C_RECORD. CHAR: 
“BYTE 
“LONG 
“BLKB 
C_INFO_TABLE: 
. LONG 


-BLKB 
C_POINTER_ CHAR: 
BYTE 


: AX=-11 Bliss-32 V4.0-742 


DEBUG. SRC IJDBGPRINT.B32;1 


580, 582, 584 


—— OO Mm 


12, 814, 816 


=—n— 
vvv 
a en 
wwe 
amd 
=~ 


36, 838, 841 
>\*\ 


nN 
v 
a 

' 
v 
=~ 


MAA ADRYNOMOO WOO WADWOMWO WAALOD —“AAALDW NAAAG OS 


Cc Cero eo oo. 
| . 


DBGPRINT 
V04= 


00000478 


00000001 00000001 00000001 


00000590 


00000000 00000001 00000001 


00000000 00000000 00000000 


0000045¢ 


00000474 


00000001 


00000000 


00000574 


0000058C 


00000001 


00000001 


00000001 


0000045A 00000458 
8 01 
z } 
9 01 
00000472 00000470 


20 66 6F 20 04 
00# 

00000488 

00000460 00000000 


00# 
00000490 00000004 


00# 

00000490 00000007 
00000000 000004A0 
8 01 


A Q1 
29 «(01 


00000572 00000570 
28 01 
ec 01 
29 «(01 
0000058A 00000588 


2€ 01 

0000050 

00000578 00000000 
0 

000005A4 00000008 
00000001 00000584 
00000008 


00000001 Sopooses 


5 
ena aan 


00460 COBOL_COMMON_CHAR: 
.LONG 1112, 1114, 1116 
ug -BLKB 4 
470 P.ABJ: .ASCII <T>\C\ 
P.ABK: .ASCII <1>\,\ 
bbefe P.ABL: ASCII <1>\5S\ 


en} -BLKB 2 
0478 COBOL_ARRAY_ CHAR: 
-LONG 1136, 1138, 1140 


Bl 
DEBUG. SRC 


sk 14 -BLK 4 

00488 P.ABM: .ASCII <4>\ of \ 

she BLK 3 

490 COBOL_RECORD_ CHAR: 

-BYTE 0(4] 

00494 ~ LONG 1160 

0498 -BLKB 8 

004A0 COBOL_INFO_TABLE: 
-LONG 0, 1120, 1, 1144 

00480 -BYTE 0f40) 

00408 -LONG 4, 1168 

004E0 -BYTE 0f88) 

00538 -LONG 7, 1168 

00540 “BLKB 24 

00558 P - LONG 116s Ge Ga Sa te 

00570 P.ABO: .ASCII <1>\C\ 

00572 P.AB eASCII = <1>\:\ 

00574 P.ABQ: .ASCII <1>\)\ 

76 BLK 2 
78 FORTRAN_COMMON_CHAR: 

LON 1392, 1394, 1396 
BLK 4 
ASCII <T>\C\ 
ASCI <1>\ 


-BLKB 
ORTRAN_ARRAY_CHAR: 
«LONG 1416, 1418, 1420 


9C -BLKB 4 
AO P.ABU: .ASCII <1>\.\ 
A2 “BLKB 2 
AG FORTRAN_RECORD_CHAR: 
BYTE 
Ag “LONG 1440 
AC -BLKB 8 
B4 FORTRAN_INFO_TABLE: 
-LONG 0, 1400, 1, 1424 
C4 BYTE of4o3 
EC LONG 1444 
OO5k4 “BLKB 120 
O66¢ P.ABV: .LONG 1460, 1, 1, 1. 1, 0 
00684 MACRO_INFO TABLE: 
-LONG 022) 
06 C .BLKB 96 
073C P.ABW: .LONG 1668, 1, 1, 0, 0, 0 
0754 P.ABX: .ASCII <1>\C\ 
44 g P.ABY: .ASCII <1>\:\ 
758 P.ABZ: .ASCI] <1>\)\ 


igeezg V4.0-742 
DBGPRINT.B32;1 
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Zz 
5 
GPRINT 1S-se -1984 227:4 AX-11 Bliss-32 V4.0-742 Page 28 
| 
‘VOeS 12-808= 1382 96: 7:4 DEBUG. SRC IDBGPRY NT.832;1 ° as 
| 075A .BLKB 2. 
00000758 00000756 00000754 75C PASCAL_COMMON_CHAR 
| LONG” 1876, 1878, 1880 : 
00768 *BLKB 4 
5B 01 O076C P.ACA: .ASCII <1>\C\ : 
| gC 01 OO7GE BACB: CASCII <1>\,\ : 
D 01 O77 P.ACC: ASCII <oA\ : 
| 00000770 0000076E 0000076C 00774 PASCAL_ARRAY_CHAR: 
.LONG 1900, 1902, 1904 : 
00780 -BLKB 4 
SE 01 OO784 P eACD: ASCII <1>\*\ : 
OO# 00788 PASCAL ave “b CHAR: 
00000784 0078C ore) : 
00790 ‘er KB g 
2E 01 00798 P.ACE: ASCII <1>\.\ ; 
0079A BLK 
00# 0079C PASCAL_RECORD_CHAR: 
-BYTE O04) 5 
00000798 007A0 -LONG 1944 : 
00000774 00000001 0000075C 00000000 007AC PASCAL_INFO_ TABLE: 
LONG 0, 1884, 1, 1908 : 
00# 0078C BYTE 0f32) : 
0000079C 00000003 00000788 00000002 007D¢ .LONG 2, 1928, 3, 1948 : 
00# OO7EC ‘BYTE 056) : 
00000788 00000002 00824 .LONG 2, 1928 : 
O# 0082¢ “BYTE gf243 : 
0000079¢ 00000007 00844 -LONG i 1948 : 
00000000 00000001 00000001 00000001 00000001 O00007AC 00864 P.ACF: .LONG 1964, 1, 1, 1, 1, 0 : 
8 01 OO87C P.ACG: .ASCII <1>\C\ : 
A 01 OO87E P.ACH: .ASCII <1>\:\ : 
29 O01 O0880 P.ACI: .ASCII <1>\)\ 3 
00882 .BLKB 
00000880 0000087E 0000087C 00884 PLI_COMMON CHAR: 
. LONG 2172, 2174, 2176 3 
00890 : 
28 O01 00894 P.ACJ: .ASCII ZPDAC\ : 
ec 01 44 943 P.ACK: .ASCII <1>\,\ 5 
29 01 00898 P.ACL: ASCII <qO\$\ : 
OOB9A .BLKB 2 
00000898 00000896 00000894 0089C PLI_ARRAY CHAR: 
.CONG 2196, 2198, 2200 : 
008A8 .BLKB 
3E 2D 02 OOBaC P.ACM: .ASCII <2>\=>\ : 
OBAF “ 1 
00# 00880 PLI_POINTER CHAR: 
BYTE £3) : 
000008AC 00884 LONG 2 : 
0888 .BLKB 
2— 01 6 cg P.ACN: ASCII <1>\.\ ; 
00# 008C4 PLI_RECORD CHAR: 
.BYTE 0L4) : 


$3 | 


a a ee ee ee ee ee TTT eo ee Lee ee 


Be Se Oe Oe Oe Oe BHO Oe Oe Oe Bee Oe Oe Be SHS Se Ge Se Se SESH Se Se Se Be Se Se Se Se Oe SH SHS SH Se Se Se SHS SESH Se Se Se Se Se ee ee ee SHS Seas 


mao 


00000000 00000001 


0000089C 


00000001 


000009¢4 


00000000 00000000 00000001 


00000001 


00000001 


000009A8 


000009C0 


00000001 


00000000 


QO000AA8 


be 
16-Sep-1984 AX-11 Bliss-32 V4.0-742 
14-Sep 71982 96: $5 26 DEBUG. SRC DBGPRINT.B3201 
000008c0 oogcs «LONG 2240 
O8CC -BLKB 
00000884 00000000 00804 PLI_INFO_TABLE: 
“LONG 0 3180 1, 2204 
008 OBE, <BYTE 0f40] 
000008c4 000000 6 090¢ LONG gh 
00# 00914 ‘BYTE 0664 
00000880 00000002 00994 LONG 2024 
00# 0095¢ “BYTE 0f16 
0000084 00000007 0096¢ -LONG i 2244 
00000001 00 90804 0098¢ P.ACO: .LONG 2260, 1, 1, 1, 1, 0 
01 O9A4 P.ACP: .ASCII <1>\C 
A 01 OQO9A6 P.ACQ: .ASCII <1>\:\ 
29 01 OO9AB P.ACR: .ASCII <T>\)\ 
OO9AA .BLKB 
00000946 000009A4 O09AC RPG_COMMON CHAR: 
. LONG 2668, 2470, 2472 
00988 .BLKB 
28 01 O09BC P.ACS: ASCII <1>\\\ 
2C 01 OO9BE P.ACT: ASCII <1>\,\ 
29 01 O009CO P.ACU: <ASCII <1>\5\ 
009C2 .BLKB 2 
000009BE 000009BC 009C4 RPG_ARRAY_CHAR: 
CONG 2492, 2494, 2496 
00900 “BLKB 4 
000009AC 00000000 00904 RPG_INFO_TABLE: 
“LONG 0, 2476, 1, 2500 
009€ “BLKB «168 
00000000 00000904 OOASC P.ACV: .LONG 2516, 0, 0, 1, 0, 0 
28 O01 OOAA4 P.ACW eASCII <TONON 
2C 01 OOAA6 P.ACX: ASCII <1>\,\ 
29 01 OOAAB P.ACY: .ASCII <1>\5\ 
OOAAA -BLKB 2 
OO000AA6 O0000AA4 OOAAC UNKNOWN_ARRAY_CHAR: 
.LONG” 2724, 2726, 2728 
OOAB8 -BLKB 4 
2— 01 QOABC P .ACZ: ASCII <1>\.\ 
00# OOACO UNKNOWN RECORD ch CHAR: 
OCOOOABC OOAC4 .LONG ota 
OOAC8 .BLKB 8 
SE 01 SOAD9 P.ADA: ASCII <1>\4\ 


QOOO00AAC 


QOOO0ACO 00000003 O0000AD4 


QOO000AD4 


00# OOAD4 UNKNOWN POINTER. guar: 
-BYTE “OC4) 


00000AD0 goaee 


A “BLKB 
00# OOAES UNKNOWN_INFO a 
-BYT : 


- LONG 


68 


YTE 
00000001 OOAEC “LONG 732 
O0# OOAF4 “BYTE C32) 
00000002 00B14 LONG 72, 3, 2752 
r OB24 “BYTE ssh 
000000 ; 08 C "LONG 2772 
00# 00864 ‘BYTE 024) 


ao 


| DBGPR 
| O4~ 
00000AC0 
00000000 00000001 00000001 00000001 00000001 
0000098C 0000022C 00000558 00000314 0000066C 


00000B9C 00000118 O0000A8C 00000440 


00000000 


00000007 


44h 
000075¢ 


00000864 


00000084 
00000000 
00000000 
00000083 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


9C 
OBB 
OOBCC 


00000 
00008 
0000C 
00010 


00014 
00018 


0009C 
000A0 
O00A4 
000A8 
QOOAC 


00000 
00004 
00008 


1Sseo-1986 99:27:48 


AX=11 Bliss-32 V4.0-742 
DEBUG. SR RDB DBGPRINT.B32;1 


-LONG 7, 2752 
“BLKB 26 


P.ADB: :LONG 2788, 1, 1, 1, 1, 0 
LANGUAGE “PRINT. TA " =PIRS: 
“LONG ~ is 21 44, 788, 1368, 556, 2444, 2148, 
1088, 2700. 280. 2972 
.PSECT DBGSOWN,NOEXE, PIC,2 


BUFFER_DESCR: 


132, 0 
MAX_BRK_ON BLANKS: 
MAX_INDENT: : 
MAX_PBSIZE: 
.LO 131 
PBSIZE: .LONG 0 
PRINT ~BuFEER: 
132 
PRT _CONTINUE: 

.LONG 0 
PRT_INDENT: ‘ 
PRTSET_CONT INUE : . 
PRTSET_MARGIN: 

.LONG 0 
PRTBRK_ON BLANKS: 

.CONG 0 


.PSECT DBGSGLOBAL.NOEXE, PIC,2 
DBGSGL_ARRSUB_FLAG: : 

-BLKB” 4 
DBGSGL_RECCMP FLAG: : 
DBGSGL_SIGN FLAG:: 

-BLRB 4 


TABLEBASE= P.AAA 
ADA_PRINT_TABLE= P.AAJ 
BASTC_PRIRT_TABLE= P.AAR 
BLISS"PRINT- TABLE= P.AAV 
T_TABCE= P.ABF 
COBOL _PRINT TABLE= P.ABN 
FORTRAN _PRIAT_TABLE=P.ABV 
MACRO_PRINT TABLE= P.ABW 
PASCAC_PRINT_ TABLE= P.ACF 
LI_PRINT_TABLE= P.ACO 
RPG” PRINT” TABLE= P.A 
UNKRNOWN_PRINT TABLE=P.AD 


EXTRA DBGSCOLLECT. DBGSFILL_IN_VMS_DESC 
BTR N DBGSGET_DST_NAM 

-EXTRN DBGSGET"MEMORY, DBGSGET_SET_TYPEID 
“EXTRN DBGSGET-TEMPMEM 

-EXTRN DBGSMAKE_SKELETON_DESC 


F 
| DBGPRINT 16-$ 
v04= 14*$ 


0000 $494! 


SE FF68 CE 9E 00002 

Oc AE 04 BC 9A 00007 

10 «AE 06 AC 01 ¢1 0000¢ 
04 AE 83 8F 9A 00012 

08 AE 14 AE YE 00017 

08 9F O001C 

08 AE 9F QOOIF 

08 AE 9F 00022 

18 AE 9F 00025 

000000006 00 04 FB 00028 
14 AE OF 4k 

7E 04 AE 3C 00032 

0000v CF 02 FB 00036 

04 00038 


; Routine Size: 60 bytes, Routine Base: DBGSCODE + 0000 


-ENTRY 
M 


AX-11 Bliss-32 V 4-0-7 42 Page 31 
DEBUG. SRC DBGPRIN T.832;1 (19) 
DBGSNEW_SYMBOLIZE 
DBGSNGET RADIX, DBGSNPATHDESC_TO_CS 
DBGSPRIM~TO_V VAL 
DBGSPR IN NT_V 


Meoeets ¢ TO_REGD chon 
ISTER_NAME 
DBGSSYATD regen 


DBGSSTA 
DBGS$STA_SYMPATHNAME 
TOMIC 


vita 
DBGSGL “EyRRENT PRIMARY 
DBGS$GB-VERB, DBGSGL CAND RADIX 


GL 
DBG$GL_LOGRAB 1DBGSGL SCREEN. OUTPUT 
DBGSSRT_ oeRM. _WIDT 


DBGSCODE,NOWRT, SHR, PIC.0 


atti pee Save nothing ; 0931 
asTRING INP_D + 0969 
STR RING INP SESC#s : 0970 
*141 Were se : 0971 
eur FER. gut _DESC+4 : 0972 
ARGUM : 0973 
OUT UDESC. ; 
LENGTH 3 
INP_DESC : 
#4, ~“SYSSFAOL ; 
Bu FER > 0974 
LENGTH : 
i pBgsuRite _OUTPUT : 
: 0977 


a 


50 


; 44 1 
; 5 979 1 
; 4] 980 1 
; 981 1 
; 9 ¢ 1 
; £88 9 1 
; 0 984 1 
BO BBY 
Be Be 
5 Bre 0988 1 
; 875 9434 1 
; o78 990 1 
; $87 0991 1 
; 878 9454 1 
: 879 0995 1 
; 880 994 1 
; 88) 995 

; 88 0996 

; 88 0997 

; 884 0998 

; 885 0999 

; 886 1000 

; 887 1001 

; 888 100 

: 889 1003 2 
9 1004 § 
; 891 1005 

: 89 1006 

: 89 1007 

> 894 1008 

; 895 1009 

: 896 1010 

; 897 1011 

; 898 ils 

; 899 1015 2 
: 900 1014 2 
; 901 1015 2 
; 308 1016 

; 90 1017 

: 904 1018 

: 905 1019 

: 906 1020 

: 907 1021 

: 908 10 4 

: 909 195 r4 
; 910 1024 1 

10 
! 


18-se0-1984 Og :e2 AX-11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGPRINT.B32;1 


14-Sep-1984 


GLOBAL ROUTINE DBGSFORMAT_FAO_OUT(BUF_DESC, STRING, ARGUMENTS) : NOVALUE = 


AE 


i FUNCTION 


i INP 


This routine formats an output string using SYSSFAOL. 


UTS 
BUF DESC = Output buffer String Descriptor. 


STRING = The address of a Counted ASCII FAO control string. 
ARGUMENTS pA we. or more arguments to be applied to the FAO control 
string. 


i OUTPUTS 
i NONE 


BEGIN 


Output buffer string descriptor 


” eur DESC: REF VECTOR ONG. 
C Address of FAO control string 


C.t 
STRING: REF VECTOR(,BYTE); 


L 

INP_DESC: VECTOR(C2,LONG), ! String descriptor for input buffer 
OUT DESC: VECTOR *LONG), : eee Coser ipter for output buffer 
ouTC . ' Length of SYSSFAOL output string 
STATUS; ! Status code returned by SYSS$FAO 


; Set up the descriptors needed for the SYSSFAOL call. 
INP_ DESCLO pStO sweet ga 
INP~ pe str STRING 


BUF . p 
OUT"D BUF “DE 
Ov ATUS> : 1}. BUF Pp 


SB ae 


OUTLEN, OUT_DESC, ARGUMENTS); 
Update the output string length and pointer. Then return. 
BUF cpesctt) = .OUT ~DESEE = .OUTLEN; 
avr “DESCC1) = .OUT_DESCL1] + .OUTLEN; 


END; 


0004 00000 .ENTRY DBGSFORMAT_FAO_OUT, Save R2 
SE 14 (2 900¢ SUBL2 #20, SP 
Oc AE 08 BC 9A 0000 MOVZBL as TRING INP_DESC 
08 ac 1 C1 OOOOA ADDL3 #1 TRING INP_DESC+4 
06 aC 00 00010 MOVL BUF Best , R2 


Page 235 


sg 


H § 

| DBGPRINT 16-Sep-1984 27:46 AX-11 Bliss-32 V4.0-742 Page 33 
iets 12-8 08-1 3be 95:97:48 DEBUG. SRCJDBGPRINT.832;1 . (203 

04 AE 62 7D Ou mova (R2), OUT_DESC : 
AC 9F 00018 PUSHAB ARGUMENTS : 1015 

AE 9F 00018 PUSHAB OUT DESC ; 

AE 9F Oolk PUSHAB OUTCEN : 

18 AE 9F 000 PUSHAB INP_DESC ; 

000000006 04 FB 00024 CALLS 4&4, ~SYS$FAOL : 
of 3¢ 028 MOVZWL OufLEN R + 1020 

62 06 A 00 : SUBL 0, OUf_DESC, (R2) : 
5 6 t 00 MOVZWL OUTL + 1021 

06 A 08 BE4O 9€ 000 MOV @OUT_DESC+4CRO}, 4(R2) : 
04 0003¢ RET + 1024 


; Routine Size: 61 bytes, Routine Base: DBGSCODE + 003C 


WAIANAE PUPP NINYNPNDNY 2 SS Ss 


DODODODOVOODOODODOOOODODDODDDODOOOOO 
SAFUYSASSSVSURUN Scene ror 


; Routine Size: 


>} st te — 2 8 a tt ta ts 2 2 2 


5 
1b-sep-1984 9g: 7:4 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:17:4 DEBUG. SRC JDBGPRINT.832;1 

5 ! GLOBAL ROUTINE DBGSFLUSHBUF: NOVALUE = 

5 1 ! FUNCTION 

8 1! This routine flushes the current print Line as built up with calls 

1; on DBGSPRINT and initializes the print buffer to start a new Line. 

Oo 1! This is accomplished by setting PBSIZE (the print buffer size) to 

1 : zero so that a new empty print Line is initialized. 
8 : 1 ! INPUTS 

. 39 NON 
035 1! 
8 ¢ 1 ! OUTPUTS 

1! NONE 

038 1! 
039 +1 
040 BEGIN 
041 
28 
ore Flush the current contents of PRINT_BUFFER by resetting PBSIZE to zero. 
046 § PBSIZE = 0; 
047 RETURN; 
048 2 
0469 1 END; 


0000 00000 ENTRY DBGSFLUSHBUF, Save nothing 
00000000° EF 04 00002 LRL PBSIZE 
04 00008 ET 


zoe 


9 bytes, Routine Base: DBGSCODE + 0079 


P 4 
a9 ot} 


x 


—__—-- 


Be Be Oe Be Be Bs Oe Se Be Oe Be Se Be Se Se Ge Ge Be Be Se Ge Fe Se Se Se Se Se Se Oe oe Se HSH Se Ge Se Se Se Ge Se Se Se Se Se HSH Se Se HSH Ss Se Se SESH See 


OOOO OOOOCoOooO 
PPD PSSST 


PPA PTIUTIUIIA EE 
DONO US WO no 


ssigezeess 


VirWN—O°O 


Oo oO 
i 
io 
=O OONO ME WN —$ O ODNOU EWN (OO OONOA UE AR" OOONOAUE WO 


OOWWODWODWOOOO NNN NN NN NNO oO 


oo 
wr 


ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
ooo 


PRIPORIPIPDPONDPIPOPDNDNINNINYNONINYPINIAINPININININIININPIPINPINPINIPINPINININIDY 2 9 9 OO SO OO SO 


ot ot ot tt BI OOOOO 
COoOoCoCoCooooooOoNO 
NOUS 


OunFwr—-0o0@ 


J 5 
1enSep-19be 19:4 7:6 


GLOBAL ROUTINE DBGSLANGUAGE _FORMAT(VALPTR) = 
FUNCTION 


This routine prints the value in a given Value Descriptor according to 
a language-specific ceraess ay rule if such a rule exists. 
he routine returns FALSE to indicate this. 


i 

i 

i 

the value is not printed and 

INPUTS 

printed in a language-specific format. 
i 

i 

i 

i 


VALPTR = Pointer to value descriptor containing the value to be 


OUTPUTS 


This routine returns TRUE if the value was printed according to a 
Language-specific ceed rule. It returns FALSE i 
C 


there is no lLanguage-spec 
in this case the value was not printed. 


BEGIN 


P 
VALPTR: REF DBGSVALDESC; ! Pointer to value descriptor 


! Note = components of records as in A.B come 
! and this is also data. 


1 
! 
' 
' 
if (.VALPTR [DBG$B_DHDR_KIND] NEQ RST$K_DATA) AND 

(,VALPTR CDBG$B~DHDR-KIND] NEQ RSTSK-TYPCOMP) 


RETURN FALSE; 


' Case on the FCODE to select the approriate language-specific formatting 


! rule. 
] 
CASE .VALPTRCDBG$B_DHDR_F CODE] FROM RSTSK_TYPE_MINIMUM 
TO RSTSK_TYPE_MAXIMUM OF 
SET 
Atomic data items, and items described by descriptor. 
CRSTSK_TYPE_ATOMIC, RSTSK_TYPE_DESCR): 
Case on Language. 
CASE .DBG$GB_LANGUAGE FROM DBG$K_MIN_LANGUAGE 
SET 


' For language PL/I we wan 
in the format '101011100'B, for example. 


CDBG$K_PLI): 


TO DBG$K-MAX~LANGUAGE OF 


IF7(, VALPTRCDBG$B_VALUE_DTYPE) EQL DSC$K_DTYPE_VU) OR 


<9 
ow 


formatting rule to print it; 


! If the kind is not data, then do not use senguage~eeret Ts ie 
ack wi in 


t to display bitstrings 
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16-Sep-1984 a tS AX-11 BLi 


14-Sep-1 DEBUG. SRC 
fy TRE DRESS VALUE DIVE EQL DSCSK_DTYPE_V) OR 
—— DBGSB_VALUE_DTYPEJ EQL DSCSK_DTYPE_TF) 
BEGIN 
LOC 


AL 
PTR: REF BITVECTORCI, 
START; 


DBGSPRINT(UPLIT BYTE(ZASCIC '''')); 
PTR = .VALPTRLDBGSL_VALUE_POINTER); 


DBGPRINT .B32;1 


T 
[ VALPTRCDBGSB_VACUE_CLASS EQL bSC$K_CLASS_UBS 


START = .VALPTRCDBGSL_VALUE_POS) 
START = 0; 
INCR I FROM .START 
IF .PTR 
EN BGSPRINT(UPLIT BYTE(ZASCIC *1")) 
. DBGSPRINT(UPLIT BYTE(ZASCIC *0°D):; 


DBGSPRINTC(UPLIT BYTE(ZASCIC B") 
Agee TRUE; 


Other Languages - no special rules. 
CINRANGEJ: 0; 
! We do not expect ay Pp Language codes here, 


so report an error we see one. 
COUTRANGE): 

$DBG_ERROR ( *DBGPRINT\DBGSLANGUAGE _F ORMAT'); 
TES; 


Other FCODEs - just fall through and return FALSE. 
CINRANGE): 0; 

! If kind is data, FCODE should be in the range of the 
CASE statement. 


COUTRANGE): 
$DBG_ERROR('DBGPRINT\DBGSLANGUAGE _F ORMAT"); 


TES; 


! No language-specific formatting rule exists for this language and FCODE. 
We therefore return FALSE to indicate the value was not 


RETURN FALSE; 
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Routine Base: DBGSCODE + 0082 


221 bytes, 


3; Routine Size: 


N 5 
DBGPRINT 16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 39 
mit 13-8 08- 1 3be Og: erit DEBUG. SRC IDBGPRINT .B32¢1 . (23) 
3; 1054 1165 1 GLOBAL ROUTINE DBGSNEWLINE: NOVALUE = 
3; 1055 1198 es 
; 10 $ 1167 1 =! FUNCTION 
; 105 Be 1! This routine prints the current print Line as built up with calls 
; 1058 1169 1! on DBGSPRINT and initializes the print buffer to start a new Line. 
3; 1059 1170 1! This is accomplished b yt: DBGSWRITE_OUTPUT to output the current 
; 1060 1171 1! contents of PRINT_BUFFER and then resetting PBSIZE (the print buffer 
3 1061 106 1! size) to zero so fhat a new empty print Line is initialized. 
; 1006 1175 1! 
: 106 1174 1 3! INPUTS 
3: 1064 1175 1! NONE 
3: 1065 1178 . 
: 1066 1177 +1 =! OUTPUTS 
3: 1067 1178 1! NON 
; 1068 1179 1! 
3: 1069 1180 1 
; 1070 1181 BEGIN 
3 1071 a 
3 1376 118 LOCAL 
; 107 1184 LENGTH; ! Length of output buffer 
3 1074 1185 
3; 1075 1186 
: ore at Print the current contents of PRINT_BUFFER and reset its size to zero. 
3; 1078 1189 LENGTH = .PBSIZE; 
3 1079 1190 PBSIZE = 0; 
3; 1080 1191 PRT_CONTINUE = FALSE; 
: 1081 1136 DBGSWRITE_OUTPUT(.LENGTH, PRINT_BUFFER); 
; 4 4119 RETURN; 
3; 108 1194 
: 1084 1195 1 END; 
0004 00000 -ENTRY DBGSNEWLINE, Save R2 ; 1165 
52 00000000" EF 9E 00002 MOVAB PBSIZE, R : 
50 62 00 00009 MOVL PBSIZE, LENGTH : 1189 
62 D4 0000C CLRL PBSIZE : 1190. 
0088 C D4 0000 CLRL PRT_CONTINUE : 1191. 
04 A2 9F 0001 PUSHAB PRINT BUFFER 3: 1192 
50 DD 0001 PUSHL  LENGT 3 
0000v CF 02 FB aE CALLS #2, DBGSWRITE_OUTPUT ; 
04 0001C ET ; 1195 
3; Routine Size: 29 bytes, Routine Base: DBGSCODE + 015F 
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GLOBAL ROUTINE DBGSPRINT(FAOSTRING, ARGUMENTS): NOVALUE = 


FUNCTION 
This routine is the DEBUG print formatting routine. It accepts an 
FAO (Formatted ASCII Output--see the — Services Manual) control 
string which specifies how the output formatting is to be done and 


SES 


oo 
oOo 


it accepts zero or more additional arguments as called for in the 
FAO control string. It calls SYSSFAOL to format the text and then 
moves the formatted text to the DEBUG print buffer (PRINT_BUFFER). 


RAWLS 


oO 
“ 


Note, however, that the formatted output is not actually printed 
unless the print buffer overflows. To force the current print buffer 
to be printed, one must call the DBGSNEWLINE routine. DBGSPRINT can 
thus be called repeeted) to build up the print buffer one piece at a 
time, after which DBGSNEWLINE is called to actually output the now 
completed print Line. 


i 

i 

i 
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i 

' 

i 

i 

' 

i 

] 

: If a DBGSPRINT call overflows the print buffer, the filled buffer is 
: output to the current output device (or screen display) and the over- 
flow text is filled into the beginning of the buffer. The effect is 
' 
i 
' 
i 
i 
i 
' 
i 
i 
i 
i 
J 
i 
' 
i 
i 


lolelelelelelealelelelele! 


BRE 


that oversized print Lines are folded on the user's output device. 


Before this routine is called, you can call DBGSPRINT_CONTROL to set 
up the proper indentation specifications. 


INPUTS 
FAOSTRING = The address of _an FAO control + ge represented as 
Counted ASCII. This string contains text and FAO format- 
ting directives of the form ""!xx'’ which define how the 
output text should be formatted. 


ARGUMENTS - Zero or more FAO at yay These arguments must corre- 
spond in kind and number to the formatting directives in 
tne FAO control string. 


OUTPUTS 
NONE 


BEGIN 


Pp 
FAOSTRING: REF VECTORC,BYTE); 


FAO control string 


oo°c[o°o 
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ec ee ee cee ee ee ce ee cee ce ee el cae ce ae ee ee ce a el cael a cl a ca ca a el i a a ca el al ce el el a ee ce 


m0 0O~ 


LOCAL 

1 BUFFER_PTR: REF vec tort BYTE) ! Pointer to FAO formatting buffer 

g FAOSTRING DESC: VECTORL2,LONGS, | FAO control string descriptor 

4 FOUND_BLANK_FLAG, ' Flag set when blank is found in back- 
&4 : ward scan for blank to break on 
45 LENGTH, ' Length of string copied at one time 
$28 : to PRINT BUFFER from temp buffer 
4 MAX LINE LENGTH ! Maximum print buffer size 

48 SAVEBUF : ~VECTOR(132, BYTE, ' Save buffer for text after the last 
49 ; blank if text is broken on blank 
50 SAVEBUF _LEN, ' The current length of SAVEBUF text 

51 AT ! Status code returned by SYSS$FAOL 

52 STR_SIZE: WORD; i String size returned by SYSS$FAOL 


ee ae oe ae ae ee a a ee ee ee ee ee ee ee ee aS ee ee ee ee ee ee ee ee eS SS SS 
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3 
3 
$ ! Call SYSSFAOL to format the desired ASCII aed - If the output buffer 
! we — to SYSSFAOL is too small, we increase its size and loop until it 
28 } is large enough to contain the output string. 
60 FAOSTRING_DESCEO] = ,FAOSTRING(O); 
61 FAOSTRING DESCL1)] = FAOSTRING(C1); 
¢ WHILE TRUE DO 
6 BEGIN 
e Hg OPER PESEAE TS EQL 0 
68 BUFFER_DESCRC1] = DBGSGET_MEMORY( .BUFFER_DESCRCOJ/2ZUPVAL) ; 
68 STATUS = SYSSFAOL(FAOSTRING DESC, STR_SIZE, BUFFER_DESCR, ARGUMENTS); 
69 IF .STATUS EQL SS$_NORMAL TREN EXITLOOP; 
4 ie NEQ SS$_BUFFEROVF 
S$DBG_ERROR(*DBGPRINT\DBGSPRINT 10 ', .STATUS); 


! Make sure the buffer size won't get over 2100 bytes. (This allows 
strings up to 2000 bytes plus a symbol name.) 


if .BUFFER_DESCRCOJ GTR 2100 
THEN 


BEGIN 
BUFFER _DESCRLO 


J = 2100; 
SIGNAL TDOBG$_STGTRUNC) ; 
EXITLOOP; 
END; 
DBGSREL_MEMORY( .BUFFER_DESCR[1)); 
Burr eR Bescrt i, = 0; 
BUFFERDESCR 0} = .BUFFER_DESCRIO] + 100; 


COOODDOOOODOOOON NNN NNN 
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! Move the newly formatted text to PRINT_BUFFER, If the new text would 

! overflow PRINT BUFFER, move over as much as will fit, output the buffer 
. by calling DBGSWRITE_OUTPUT, and loop to move the remaining text into 

! the print buffer. 


MAX_LINE_LENGTH = MIN(.DBGSSRC_TERM_WIDTH, .MAX_PBSIZE); 
BUFFER_PTR = .BUFFER_DESCR(1); 
WHILE TRUE DO 

BEGIN 


ooononono 
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! If the print buffer is full, output its contents before we get more 
text from the FAO formatting buffer. 


if .PBSIZE GEQ .MAX_LINE_LENGTH 
THEN 
BEGIN 


SSSsSs 
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: If the Break-on-Blanks flag is set, we try to_break the Line on 
1 the last blanks before the end of the Line. This prevents num- 
bers and names from being broken in the middle, if possible. 


SAVEBUF_LEN = 0; 
HF gr TORK ON _SLAMKS 


BEGIN 


SRLERFALLS 
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' Loop backward over the print buffer to locate the last blank 
in the Line and the Last non-blank before that. 


FOUND _BLANK_FLAG = FALSE; 
DECR T FROM -PBSIZE - 1 f0 0 DO 


! If we have already found a blank in the scan, set PBSIZE 
' to include all text up to the current character. If the 
current character is non-blank, stop the backward scan. 


If .FOUND_BLANK_FLAG 
THEN 


BEGIN 
PBSIZE = .1 + 1; 
IF PRINT BUF FERC. 1] NEQ ' * THEN EXITLOOP; 


! We have not yet found a blank. If this character is the 
! first blank, save all text after it in SAVEBUF and set 
! the found-a-blank flag. 


ELSE IF .PRINT_BUFFERC.1] EQL ' ° 
THEN 
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37 BEGIN 

38 4 SAVEBUF _LEN = .PBSIZE - .1 = 1; 

39 49 CHSMOVET.SAVEBUF_LEN, PRINT_BUFFERL.I + 1], SAVEBUFLO]); 
40 50 FOUND_BLANK_FLAG™= TRUE; 

re 2 END 

a3 38 

ah 54 ! If we have not yet found a blank but are already below 
45 55 ! the maximum backward scan index, exit the loop without 
46 56 ; Roving found a place to break on. In this case, the 

74 f : Line is not broken on a blank. 

49 59 ELSE IF .1 LSS .MAX_BRK_ON_BLANKS 

50 360 THEN 

51 361 EXITLOOP; 

28 306 . 

3 $07 END; ' End of loop to break Line on blanks 
55 363 END; ! End of PRTBRK_ON_BLANKS If statement 
56 366 
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} Now output the formatted print Line to the output device. 
DBGSWRITE_OUTPUT(.PBSIZE, PRINT_BUFFER); 
Indent the print buffer for the next Line of text. Also copy 


! 
! over any text that remained from the previous Line if that Line 
was broken on the Last blank. 


PRT_CONTINUE = TRUE; 
PBSTZE = .PRT_INDENT + .PRTSET CONTINUE ; 
CHSFILL(* ', TPBSIZE, PRINT_BUFFERLOJ); 
IF .SAVEBUF/LEN GTR 6 
THEN 
BEGIN 
CHSMOVE(.SAVEBUF_LEN, SAVEBUFCO], PRINT_BUFFERC.PBSIZE)); 
PBSIZE = .PBSIZE~+ .SAVEBUF_LEN; 
END; 
END; ! End of code to output print buffer 


If this is a new text Line, indent the Line by the current indenta- 
tion amount. Note that a continuation Line can be indented more. 


' 
' 
; 
IF .PBSIZE EQL 0 
THEN 


BEGIN 

PBSIZE = .PRT_INDENT; 

IF .PRT_CONTINUE THEN PBS 
CNSPILLE *, .PBSIZE, PRI 


af + .PRTISET_CONTINUE; 


Move the next section of text from the FAO buffer into the print 
buffer and adjust the print buffer size accordingly. As this is 
done, all tabs are expanded to blanks to produce a completely 
de-tabbed print buffer. 


NCR I FROM 0 TO .STR_SIZE - 1 DO 
BEGIN 
STR_SIZE = .STR_SIZE - 1; 


If the current character is a tab, we expand it to blanks. 
if .BUFFER_PTRCO) EQL DBGSK_TAB 
THEN 


LENGTH = MIN(& = (.PBSIZE MOD 8), .MAX LINE LENGTH = .PBSIZE); 
CHSFILL(* *, .LENGTH, PRINT_BUFFERL.PBSIZEJ); 
Pasi ze = .PBSIZE + .LENGTH;: 


! And if it is not a tab, we simply copy it over. 


Re Be Oe Be Oe Oe Oe Oe Oe Oe Oe Oe Oe Be Be Oe Be Se SESH Se SH Se Se SHH Oe Be BH Se ee SESH Se Se Se Se Se Se Se Se ae Se See Se Se Se ee ee ee ee ee Se Se ee ae 


rs a 


| F 6 
¥Oe-000. er8ee= 138s 93:95:28 «EO aus. 8h 


= .PBSIZE + 1 


' 
' 
' 
! 
ores PTR = BUFFER PTR + 


' See how much input text we have left. 


Se Oe eee Se Oe ee OF Se Oe Os Se Oe HSH Se SH Se Oe 8 Ss Oe Se SESH Se Se ee Se Se tee 

aaa at is at at a et as st a = a = 2 a 2 9 2 st 
tk nk kk tk tk tt tk at kn a 
tel el al al ek al ltl et at al a et et at tat at et ett et et ee tt et et ek et 
GUUS Be BB BB BB BB BANA noropeoreorner 
MEAN $0 OONAUEWN 0 ODN NEW - OOONOUE 
=NIPINPIPINININIW AWWW BBB BEEP EPMO 


3 : 
H IF .STR SIZE EQL O THEN EXITLOOP; 
3 
3 
ee The formatted text is now in PRINT_BUFFER. 
34 RETURN; 
34 
34 END; 
50 246 47 42 44 SC 54 4E 49 52 50 47 42 44 16 ooces P.ADI 
20 30 31 20 54 4E 49 52 00C32 
OFFC 00000 
5E FF68 CE 9€ 0000 
F8 D 04 BC 9A 0000 
FC AD 06 AC 01 C1 Q000C 
00000000" EF D5 AF} 1$: 
16 Ig 001 
EF o C7? QOO1A 
000000006 00 1 Fe 00 3 
00000000° EF 50 3 be 
08 AC 99F 00 2s: 
00000000° EF 9F 000 
10 AE 9F 00039 


7E 00000000" 
| 
| 


eee er ee ee ee a 


BEGIN 
PRINT BUFFERC.PBSIZE] = .BUFFER_PTR(O); 
PBSIZE E ; 


! Increment the FAO formatting buffer pointer by one. Then 
! are about to overflow the print buffer, we exit the copy 
! Otherwise, we loop for the next character. 


1: 
-PBSIZE GEQ .MAX_CINE_LENGTH THEN EXITLOOP; 
END; ! End of copy and de-tab loop 


iss-32 V6.0-742 
CIDBGPRINT.B32"1 


if we 


loop. 


If there is none, exit this 


Return control. 


»PSECT 
ASCII 


DBGSPLIT,NOWRT, 


<22>\DBGPRINT\<92>\DBGSPRINT 10 \ 


DBGSCODE .NOWRT, 


DBGSPRINT, Save R2,23,R4,R5,R6,R7,R8,R9,= 


R 
-152(SP) 


; he loop. Otherwise, we loop to move the text that remains in the 
AO formatting buffer into the print buffer. 


END; ! End of WHILE loop over print Lines 


SHR, PIC,0 


SHR, PIC,0 


o SP 
@FAOSTRING, FAOSTRING DESC 


#1, FAOSTRING 
BUFFER DESCReS 


#4, BUFFER DESC 


#1, DBGSGET MEM 
RO 


BUF FER_BESC 
ARGUMENTS 
BUFFER DESCR 
STR_SIZE 


FAOSTRING_DESC+4 


R, =(SP) 
ORY 


R+4 
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(24) 


> 


<9 
ow 


De Oe Oe Oe Oe Ss Oe Oe Oe SHS e Oe Se Oe BH Se Se Be Se Se Se Se Se Se Se Se Ge Se SHH Se See SESH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Sete tease 


eae 


“Yoe~000. 


000000006 


00000601 


0000884" 


00000000° 
000000006 


000000006 
00000000" 


00000000" 


04 


00000000" 


00000000" 


1 
EF 
20 


20 
F 


6 
00000000°EF 48 
6€ 


00000000" 


EF 


mo 
as ee) 


1 
1 
F8 AD OF Oot 
4 FB : F 
g Dd B78 
Di 0004 
g 13 Spee 
Di 0004 
17 13 0005 
52 pp 005 
00000000" EF 9F 00059 
1 DD Q005F 
00028362 F Dd 00061 
04 FB 49 
00000000" EF 01 00 $f 3$: 
18 15 B88 
0834 8F 3C 00078 
00028048 8F DD 00084 
4 FB QOO8A 
1 11 00091 BRB 
00000000° 4 DD 00093 4$: 
1 FB 00099 
00000000" EF 04 OO0A0 
00000064 F 9 QO0A6 
FFSE 31 00081 
000000006 98 DO 00084 5$ 
0 01 00088 
07 15 000C2 
00000000" EF 00 000C4 
50 dO O00CB 6$: MOVL 
00000000" EF ge QOOCE MOVL 
08 AE 3C 00006 MOVZWL 
00000000" EF 01 QOODA 7$: CMPL 
03 18 O00E1 
OOAE 31 000E3 
56 D4 OO0E6 8S: 
00000000" EF €E9 OODE8 
6E 04 OOOEF 
00000000" EF D0 Q00F1 
45 11 000F8 
6E £9 OOOFA 9$ BLBC 
01 4 9E OOOFD MOVAB 
00000000°EF48 $1 00105 
30 13 00100 
31 11 0010F 
QOO00000"EFSS 91 Bet ig 10$: 
18 is 0119 
5 § ba138 
FF AO 3 01 
56 2 Bat 7 
01 00 00131 
09 11 001 
38 D1 Bat 118: 
2 19 00150 
8 F4 Bet F + ¢ 
00000000" EF 9F Be 15$: 
00000000° Fe DD 0014 PUSHL 
2 FB He 
01 D0 0015 


oh ‘ gr}984 02:27 4 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGPRINT.832;1 


PUSHAB FAOSTRING_ DESC 
CALLS #4, SYSSFAOL 


U 
TATUS, #1 

STATUS, #1537 

STATUS 

P.ADI 


#164706 
#4, LIBSSIGNAL 
BUFFER. DESCR, #2100 


Ht , SUFFER. DESCR 
» LIBSSIGNAL 


BUFFER DESCR+4 

#1, DBGSREL_MEMORY 
BUFFER_DESCR+4 

#100, BUFFER. DESCR 


DaGSSRC _TERM_WIDTH, RO 
RO. MAX_PBSIZE 


MAX_PBSIZE, 

RO, MAX_LINE_ LENGTH 

QUEFER BESCRES, BUFFER_PTR 
pasTit. MAX_LINE_LENGTH 


14$ 

SAVEBUF 

PRTBRK on BLANKS, 13$ 
FOUND BLANK _F 

PBSIZE, I 


FOUND_BLANK_FLAG, 10$ 
1(R8), P 
PRINT. “BUFFERCIJ, #32 


13$ 
iL BUFFERCIJ, #32 


I IZE, RO 
TROD SAVEBUF 


LEN 
SAVEBUF LEN, PRINT BUFFER+1C1], SAVEBUF 


FOUND _BLANK_F FLAG 
I, MAX_BRK_ON_BLANKS 
1%$ 
1, 9$ 
PRINT BUFFER 
PBSIZ 


. DBGSWRITE OUTPUT 
i, PRT_CONT IAUE 
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———_— SEAS EE 


H 6 
 DBGPRINT 16-Sep-1984 Te AX-11 Bliss-32 V4.0-742 Page 46 
Vv 14-Sep-1984 12:17:4 DEBUG. SRCJDBGPRINT.832;1 (24) 
00000000" EF 00000000" EF 00000000" EF ¢1 0015A ADDL3 PRTSET_CONTINUE, PRT_INDENT, PBSIZE : 1378 
00000000" EF 5H é 5 gt o1h MovCS #0, (SP), #32, PBSIZE, PRINT_BUFFER : 1379 
00000000° gf 1 : : 
6 D5 17 TSTL § SAVEBUF_LEN : 1380 
18 1 17A BLEQ 14$ : 
50 00000000" EF 3 76 MOV PRINT_BUFFER, RO : 1383 
00000000'FF40 Oc AE 6 2 Hs MOVC SAVEBOF_LEN, SAVEBUF, @PBSIZECROI ; 
00000000" EF 4 C9 0180 ADDL2 SAVEBUF-LEN, PBSIZE + 1384 
00000000' cf D5 00194 148: TSTL PBSIZE + 1393 
8 if 019A BNEG 16 : 
00000000' cf 00000000" EF D O19¢ MOVL § PRT_INDENT, PBSIZE + 139 
99000000" EF €9 OO1A BLBC §§PRT~CONTINUE, 1 + 139 
00000000" €F 00000000' cf ¢0 O1AE ADDL2 PRTSET CONTINUE, PBSIZE : 
00000000" EF 0 6E 0 2C 001B9 15$:  mOovcS #0, (SP), #32, PBSIZE, PRINT_BUFFER + 1398 
00000000" EF 001 Ce ; 
58 00000000" EF DO 001C7 168: MOVL PBSIZE, RB t 1417 
59 gi CE OO1CE MNEGL #1, I : 
8 11 00101 BRB 21$ : 
08 AE 87 00103 17S: DECW  STR_SIZE + 1409 
09 04 Bf 1 00106 CMPB = ABUFFER_PTR, #9 7 1414 
1 12 OO1DA BNEQ 19% : 
7E 00 58 01 7A 001DC EMUL #1, RB, #0, -(SP) + 1417 
50 50 BE 08 78 0O1E1 EDIV. #8. (SP)+, RO, RO ; 
50 08 50 C3 00166 SUBL3 RO. #8, R ; 
51 57 58 C3 OO1EA SUBL3 8, MAX_LINE_LENGTH, R1 : 
51 50 Di OO1EE CMPL = RO, RI : 
03 15 OO1F1 BLEG ~3=s«d18$ ; 
50 51 DO 001F3 MOVL 1, RO : 
58 50 DO OO1F6 18$:  MOVL RO. LENGTH : 
58 20 bE 00 2C 001F9 MOVCS #0, (SP), #32, LENGTH, PRINT_BUFFERCR8) : 1418 
00000000'EF 48 OO1FE : 
00000000" EF 5B CO 00204 ADDL2 LENGTH, PBSIZE + 1419 
OF 11 00208 BRB + 1414 
00000000'EF48 04 BE 9000200 19$:  MOVB  a@BUFFER_PTR, PRINT_BUFFERCR8) + 1427) 
00000000" EF D6 00216 INCL  PBSIZE + 1428 
AE 06 OO21C 208: INCL BUFFER_PTR : 1436. 
58 00000000" EF DO 0021F MOVL  PBSIZE’ + 1437 
57 58 D1 00226 CMPL Rg MAX_LINE_LENGTH F | 
4 18 00229 BGEQ 22% ; 
AG 59 A F2 0022B 21$ AOBLSS R10, I, 17% + 1407 
SA 08 A 3¢ 00 ¢ 22$ MOV2WL STR.SIZE, R10 + 1446 
03 13 00233 BEQL ¢38 : 
FEA2 31 00235 BRW 4 : 
04 00238 238: RET + 1455 
; Routine Size: 569 bytes, Routine Base: DBGSCODE + 017C 


a 


<9 
mm 


| 


' 


9 


3 


_— 


s3 


FESESIIAL VISWN—O0O~ 


iw 
o 


LA 
COON NNNNNS > 
Oe ISS F SSE SESS 


WAWAAA AANA Ww 
SERSES 
NOW Ew 


~o 
DOOOOOO OO OW WWW 0009 009 SII NN SII NINN IO AAA APAAAOOUIUIVGUW 


Se Se Oe Be Se Se Se Se Be Se Ge Se Be Ge Ge Oe Ge Fe Se Se Be Fe Se Se Ge Se Se Ge Se FH Se Sse Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se FHS Ss Se Ge HSH Se ee oa 
VA=OSRUF AR AW OSS NAME WN HO ODNOA UE WN 0 OONOAUES WIN HOODS NOUE WO OONO 


ek ad a a a a ed a ed ce a a a a a a ae a a ca a a el cl ce ce ec ee ce ec a a ee ed ee ed 
ONO UE Ww — 


a a ee ee a ee eh a ea a a a a a 
MAP VAVIVIVIVIVIVIVIVAE BE BEE EEE EERE PEPE PPP PPP PPE PPP PPP PPP EPPO EE 


RIPIPIPIPIMIPIPIPIMPNINININYPINMAINININININ INIA a sk tk a 8 a 2 od ot I 


H&E EAM 


———$ DOOOOO0S0O 


ooo 


wn 
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bese 1984 02:27:4 AX=-11 Bliss-32 V4.0-742 P 47 
4 att 7 93:99:25 DEBUG. SRC JDBGPRINT.B32;1 mr 628) 


GLOBAL ROUTINE DBGSPRINT_CONTROL = 


FUNCTION 
This routine sets up the indentation levels for the print buffer used 
in DBGSPRINT, so that when text overflows the print buffer 
remaining text can be indented according to the given specifications. 


i 

i 

i 

i 

‘ 

' INPUTS 

: Can be any numbers of input perqneters. separated by commas. The first 
: arameter has to be one of the tos lowing Print Control Codes: 

‘ BGSK_PRTSET_LMARGIN, DBGSK_PRTSET_RLMARGIN, DBGSK_PRTBRK_ON_BLANKS, 

: DBGSK_PRTSET-CONTINUE, and BBG$K_PRT_RESET. 

! Valid parameters are: 

; DBGSK_PRTSET_LMARGIN followed ~ a value (0, or +) 

i DBGS$K-PRTSET-RLMARGIN followed by a value (6, +, or -) 
\ DBG$K~PRTBRK-ON_ BLANKS 

DBGSK_PRTSET-CONTINUE followed by a value (0 or +) 
! 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
i 


DBGSK_PRT_RESET 

Default for above parameters are: 
DBGSK_PRESET_LMARGIN PRTSET_LMARGIN = 0 
DBGSK_PRESET_RLMARGIN PRTSET_RLMARGIN = 0 
DBG$K_PRTSET_ON BLANKS PRTSET_ON BLANKS = FALSE 
DBGSK_PRTSET_CONTINUE PRTISET_CONTINUE = 0 


! OUTPUTS 
Return TRUE or FALSE status code to the caller. TRUE means the 
given indentation is properly set. FALSE means the 
previous indentation remains set. 


BEGIN 
ILTIN 
ACTUALCOUNT, !' The number of actual parameter 
ACTUALPARAME TER; ' Select the N-th actual parameter 


OCAL 
BRK_ON BLANKS, Flag set to break on blanks at the end 


' 
CONTINOE , i Indentation for continuation Line 
MARGIN, ' Left margin for print buffer 
PARAMCNT; ! The number of input parameters 
Initialization. 
PARAMCNT = 0 


MARGIN = .PRTISET_MARGIN: 
CONTINUE = .PRTSET CONTINUE; 
BRK_ON_BLANKS = .PRTBRK_ON_BLANKS; 


! Loop through the input parameters. Perform the preoer aperet ten 
: for each input parameter according to the Print Control Code. 


WHILE .PARAMCNT LSS ACTUALCOUNT() DO 


<9 
on 


co 
| 
i 


WWIII RIPPIN NUNDYD 2 2 OO OS OO 


Ww ooo 
AEA SOGS OM PMY O ODP APM ODDIE AR 


Piuuroseus 


COONOVEW "CO OOnNO Fw Oo 0On 


me a a ee a nd a a et wd od = od 


DADAM 


a ad ed a a ad cea ed ed ed et ed a ee et ce ce ce cd ce ce ce ed ed ee a ed ee ee ee ce ee ee ec ee ce ee el ce ee ee ec cee el ee ee ee ee eel ec 
iw tale al al al al sl al ah ab ah sh sb ah sh ah Ah Ab ah Ab oh oh oh eh oh oh ah ab sl ab ah ad ak al al ak al al al eal al al al a Oa al al a) al al Oa al el eal ale wal 
OONOA WE WN 0 ODNOA UENO OD NO MEW 0 OD NOU EWN 0 ODN Y FWN-"OOOVOUSw 


BREESE FANNIN NAAN & BBE EB EAN BBB BB FANN 


1 6 
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1enee= 1 8be 98: 9552 DEBUG. SRCIDBGPRINT.B32s1 29 (28) 


BEGIN 

PARAMCNT = .PARAMCNT + 1; 

! Get the input parameter. Case on the Print Control Code and perform 
the proper print control operation. 


CASE ACTUALPARAMETER(.PARAMCNT) FROM DBGSK_PRTSET_LMARGIN 
SET TO DBGSK_PRT_RESET OF 


! Set the left margin. We need to get one more input parameter 
to set the left margin value. 


CDBGSK_PRTSET_LMARGIN): 
BEGIN 


PARAMCNT = .PARAMCNT + 1; 
if -PARAMCNT GTR ACTUALCOUNT() 


HEN 
SDBG_ERROR(*DBGPRINT\DBGSPRINT_CONTROL, err. 10°); 
— = ACTUALPARAMETER(.PARAMCNT); 
: Set margin relative to current setting. We need to get one more 
input parameter to set the relative margin value. ° 
(DBG$K_PRTSET_RLMARGINI: 
BEGIN 


PARAMCNT = .PARAMCNT ¢ 1; 
IF_ .PARAMCNT GTR ACTUALCOUNT() 


N 
$DBG_ERROR("DBGPRINT\DBGSPRINT_CONTROL, err. 10°); 
— = .MARGIN + ACTUALPARAMETER(.PARAMCNT) ; 


th Flag to indicate to break on blanks at the end of the print 
! Line. 
' 


{DBG$K_PRTBRK_ON BLANKS): 
BRR_ON_BLANKS = TRUE; 


! Set more indentation margin for continued print Line. We need to 
have one more input parameter for this Print Control Code. 
CDBGSK_PRTSET_CONTINUE): 

BEGIN 


PARAMCNT = .PARAMCNT + 1; 
IF .PARAMCNT GTR ACTUALCOUNT() 


THEN 
$DBG_ERROR("DBGPRINT\DBGSPRINT_CONTROL, err. 10°); 


$4 


GPRINT 16-50 -1984 
iveti ty 10-8ep-1984 

: 1461 CONTINUE = ACTUALPARAMETER(.PARAMCNT); 
3; 146 END; 


To 


o 
u 


} Reset all the indentations. 
{DBGSK_PRT_RESET]: 
BEGIN 


AX-11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGPRINT .832;1 


1570 4 
157 
3 14 157 
3; 14 157 
ari 185 
: lee? 157 
; 1468 157 4 
3 re 24 1 ue 4 MARGIN = 0; 
: 1470 1579 4 CONTINUE = 
+ 1471 1580 4 BRK_ON VEvanné = FALSE; 
; ere 1 5) END; 
3: 1467 1 § 
: 146746 158 
3: 1475 1584 ! We do not recognize this Print Control Code. 
; dt | 1585 i 
3: 147 1356 CINRANGE, OUTRANGE): 
3; 1478 158 $DBG_ERROR(' DBGPRINT\DBG$PRINT CONTROL, err. 
3: 1479 1588 3 
3; 1480 1589 TES; 
3: 1481 1590 
: Me 1591 
3; 148 1238 ! We have got an apparently valid parameter. Check that the 
> 1484 159 i indentation Limits are valid. 
3; 1485 1594 i 
> 1486 1595 if (. CONTINUE LSS 0) OR (.MARGIN LSS 0) OR 
3 re $4 1338 4 ((. MARGIN + . CONTINUE) GEQ MIN(.DBGSSRC_TERM_WIDTH, .MAX_PBSIZE)) 
3; 1489 1598 ; RETURN FALSE; 
3; 1490 1599 
3 1491 1600 2 END; ! End of WHILE loop over the parameters 
3 1436 1601 2 
7 149 1008 § 
: yh} 1ob2 ! ALL the parameters were valid. Set the permanent print control values. 
3: 1496 1605 BRISET MARGIN = MARGIN 
> 1497 1606 PRTSET-CONTINUE = .CONT TENUE:; 
3: 1498 1607 PRTBRK_ON_BLANKS = .BRK_ON “BLANKS; 
3 1499 1608 
: 1500 1609 k aoe 
3 1501 1610 ! Calculate the maximum indentation size. If the new margin is greater 
: 1308 + a than this size, use this size instead. 
3; 15046 1818 MAX_INDENT = MIN(.DBGSSRC_TERM_WIDTH, .MAX_PBSIZE) / 2; 
> 1505 1614 PRT-INDENT = MIN(.MAX_INDENT, sPRTSET_MARGIN); 
3: 1506 1615 
3; 1507 1616 
; 1508 161 ' Calculate the maximum break on blanks size. We use this value to stop 
: 1509 1618 ' the search for blanks when we later search for blanks backwards from 
3 1ei% 101) end of the print buffer. Then return. 
: 1318 1621 MAX_BRK_ON_BLANKS = -PRT_INDENT + (.DBGSSRC_TERM_WIDTH = .PRT_INDENT) / 2; 
: 151 16 § RETORN TRUE; 
3; 15146 16 
; 1915 1624 1 END; 
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<o | 


<9 


c-cre - —_—_— — $$ — — 


4 
GPRINT 1b-sep =19 4 AX=11 Bliss-32 V4.0-742 p 0 
| Pee 1a-Sep- 1 98: $534 DEBUG. SRCIDBGPRINT B32: 1 age 43) 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


| 
‘os 6 67 62 && § 4 46 49 5 0 67 62 6 OOC3A P.ADJ: ASCII \#DBGPRINT\<92>\DBGSPRINT_CONTROL, err. \. ; 
65 $3 2c 4C 4F : ee 4E 4F 2g ef 34 st 49 2 O0c49 , ae see : 
50 246 47 462 466 SC 54 4E 49 52 50 47 42 %6 : ne P.ADK ASEH Se cPRINT\<92>\DBGSPRINT CONTROL \ ; 
° ° , err. P} 
5 35 2c 4C 4F : 54 4E OF 2 5F 34 se 49 9¢60 ¥ : 
5 6 67 62 & 4 4 49 5 0 47 42 i : ne P.ADL ASE TT LI OAGPRINT\<92>\DBGSPRINT CONTRO \ 
° -* . err. : 
23 $5 2C 4C 4F 35 ee 4E 4F 2 Ht: 54 4E 49 3 oc ‘ ‘ “5 3 
20 2— 72 S0CA0 : 
50 24 47 42 464 SC 56 4E 49 52 50 47 42 it 23 SOc AG P.ADM Ager T \ PDUGPRINT\<92>\DBGSPRINT CONTROL — 
° : ° o err. é 
65 5 2c 4C 4F 52 54 GE 4F 2 SF 54 GE O49 00cBS = : 
20 2—E 72 72 OOCC4 : 
30 32 O0cc8 eASCII \20\ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

03FC 00000 .ENTRY DaGSPRINT_ CONTROL, Save R2,R3,R4,R5,R6,R7,—- ; 1456 
59 000000006 00 9E 00002 MOVAB DBGS$SRC_TERM_ WIDTH, R9 : 
58 00000000G 00 9€ 00009 MOVAB L1Bss IGNAL, R8 : 
57 00000000' EF 9E 00010 MOVAB P.A R : 
56 00000000' Ef 9E 00017 MOVAB PaISET MARGIN, R6 : 

3 D4 OOO1E CLRL PARAMC : 1503 

52 66 DO 00020 MOVL PRTSET_MARGIN, MARGIN > 1504 

54 FC Ab DO 00023 MOVL PRTSET-CONTINUE, CONTINUE : 1505 

55 04 Ad DO 00027 MOVL PRTBRK “ON_BLANKS, BRK_ON_BLANKS : 1506 

53 6C 08 00 €ED 00028 1$: CMP72V #0, #8, (AP), PARAMCNT + 1512 

03 14 00030 BGTR 2s : | 
0OA3 31 90032 BRW 14$ : 

3 D6 9003 28: INCL PARAMCNT + 1514 

04 01 6C43 CF 00037 CASEL (AP)CPARAMCNT], #1, #4 : 1520 
0058 0053 0036 0019 0003C 3$: . WORD 43-38. : 

0075 00044 6$-3$,- ; 
8$-3$,- : 
9$-3$,- : 
11$-3$ : 

57 DD 00046 PUSHL R7 : 1587 
01 DD 90048 PUSHL #1 ; 
00028362 F DD 0004A PUSHL 164706 ; 
68 03 FB 005 CALLS #3, LIBSSIGNAL : 
$0 11 0005 BRB 2 : 
D6 00055 4$: INCL PARAM : 1530 
53 6C 08 00 FD 005 CMPZ2vV #0, ase Tap), PARAMCNT : 1531 
of 8 903¢ BGEQ 3$ 3 
94 A? OF 0005E PUSHAB P.ADJ : 1533 
1 DD 00061 PUSHL j : 
00028362 F DD 00063 PUSHL : 
; FB 0069 CALLS #3 L BSS IGNAL : 
5 6C43 D0 0006C 5$: MOVL (AP) CPARAMCNT), MARGIN > 1535 


se 
rr 


cc 
| 


, GPRINT | SS, n ‘ao 
‘WO«=F00 1e-805-19 


43 11 ? 

3 wus 
wee ite if 
ot 8 ee 

A 00028362 Br op 09 6 
Bit 

55 6 DO 0008F 

¢] 11 9 

3 D6 00094 

Mey Sie en BA ee 
bc Ay oF 00049 
01 DD OOOAD 
68 00028362 Be 43 BOE 

54 cas dO QOOAB 

04 11 OOOAF 

2 Bf 00081 
94 7C 00083 

54 05 00085 

66 19 00087 
2§ DS 00089 

62 19 00088 

51 52 54 C1 000BD 
50 69 00 000C1 

sede Dee BIE 
grees it ot ee 

4A 18 00003 

FF53 31 00005 

66 52 DO 00008 

FC =A 54 00 00008 

04 Ab 55 DO OO0DF 

51 69 DO 000E3 

50 51 DO QO0E6 

pk a BB Be 
50 FF68 C6 DO O00FO 
eh Be 8 Be 
66 50 D1 88189 

03 15 0010 

50 98 dO 4 > 
FB AG 0 00 108 
oe 8 ee 
FF60 £8 F8 astd ae atte 

b4 Ole 

50 D4 OO11F 

4 00121 


9$: 


10$: 


13$: 


14$: 


15$: 


16$: 


17$: 


AX-11 8B Ot ieee V4.0-74 


DEBUG. SRC JDBGPRINT. ases 1 
12$ 
PARAMCNT 
#0. #8, (AP), PARAMCNT 
of ADK 
#16470 06 


Tab) bbARaueNt MARGIN 
#1, BRK ah emt 
‘ § 


PARAMCN 
#0, #8, np), PARAMCNT 
10§ 

P.ADL 


a 
#164706 
3 L 1BSSIGNAL 
(AP) PARAMCNT), CONTINUE 


MARGIN 

CONT INUE 

CONTINUE 

17$ 

MARGIN 

17$ 

ier MARGIN, R1 


DBG$SRC_TERM_WIDTH, RO 
RO, MAX-PBSIZE 


MAX_PBSIZE, RO 
R1, RO 
17$ 


1$ 

MARGIN, PRTSET pests 

CONTINUE, PRTSET_CONTINUE 
BRK_ON_ BLANKS, PRIBRK. ON_BLANKS 
DBG BGSSRT_ TERM “WIDTH, RT 


RO, MAX -PBSIZE 


MAX_PBSIZE, RO 

#2, RO, MAK, jRDENt 
MAX_ INDENT 

oe PRISET “MARGIN 


PRTSET_MARGIN, RO 
RO, P DENT 
PRt_INDENT, R1, RO 


aPRT INDENTCRO}, MAX_BRK_ON_BLANKS 
#1, R 


RO 


1614 


1621 


1622 
1624 


o> OOS OS 66 ee Oe HS OS FS EE OS FS 6S 6S HE OS 6G Oe Oe FE ES FS FS OS TE HS FS ES FS ES ES FES ES HS HS FSFE HS ES SSCS SES HS SSS SSS HSCS *SHS*S*S*STS 
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AX- 


6 
eesepm19be 89:47:00 


: Routine Base: 
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| 87 
| DBGPRINT 16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 53 DB 
yO. 000 13-88-1382 95: ebte DEBUG. SRC JDBGPRINT .832;1 . (26). vO! 
$ : V7 1 5 } GLOBAL ROUTINE DBGSPRINT_FIELD_REF(VAL_DESC, TF_FLAG) : NOVALUE = 3 | 
: 1819 1859 1 i FUNCTION : 
; 1520 1628 1! This routine prints the field reference information as in X<p,s,e>. ; 4 
: 2 1 1629 1! It is called from DBGSPRINT_IDENTIFIER and from DBGSEVALUATE (in 3 4 
..3 ¢ 1630 1! the EVAL/ADDR code). If the address passed as a Value Descriptor 2 4 
3; 15 1631 1! to this routine represents a bit-field, then the '<p,s,e>'' informa- 2 4 
; 2 3 YS ¢ : tion is filled into the output buffer via DBGSPRINT. 2 
° ° e | 
3 1 6 1634 1 =! INPUTS s | 
: 1827 1635 1! VAL_DESC = A pointer to a volatile value descriptor representing 5 4 
: 1 $ 1837 ' the address to be printed. 3 4 
Ps H e 4 
; 1550 1638 1! TF_FLAG = An optional hg which if present and TRUE, indicates that 3 
; 1531 1639 1: we want to see field info for type TF. 3 | 
; 1236 1640 1! s | 
7 15 1641 1 | OUTPUTS 3 | 
3 1534 1986 1! NONE s | 
; 1535 1643 1! 2 4 
3; 1537 1645 2 BEGIN z 4 
; 1538 1646 3 4 
3; 1539 1647 BUILTIN 24 
3; 1540 1648 ACTUALCOUNT; ! The number of actual parameters s | 
3; 1541 1649 3 | 
3 1366 1650 p s 4 
3 ots 193) VAL_DESC: REF DBGSVALDESC; ! Pointer to input Value Descriptor 4 
: 1545 1888 g LOCAL 2 | 
3: 1546 1654 FLAG; 3 4 
3; 1547 1655 o 4 
3; 1548 1656 IF ACTUALCOUNT() LSS 2 3 4 
3; 1549 1657 THEN 2 4 
3; 1550 1658 § FLAG = FALSE ar 
3 1551 1659 s 4 
3 1326 1660 2 ELSE 2 4 
3; 155 1661 2 FLAG = .TF_FLAG; 3 4 
3; 1554 1066 3 4 
3; 1555 166 y . ; $4 
: 1556 1664 ' Check whether the Value Descriptor represents a bit-field. 3 4 
; 1322 bt If so, print the <p,s,e> information. 3 4 
3; 1559 1667 IF (.VAL_DESCCDBG$SB_VALUE_DTYPE] EQL DSCSK_DTYPE_SV) OR : 
:; 1560 1668 (. VAL_DESCCDBG$B_VALUE_DTYPEJ EQL DSCSK_DTYPE_SvU) OR 2 4 
3; 1561 1669 (.VAL_DESCCDBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_V) OR 2 4 
: 1206 1670 (.VAL_DESCCDBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_VU) OR 3 4 
3; 156 1671 (.VAL_DESC geese va CLASS] EQL DSCS$K_CLASS_ UBS) OR 3 | 
; 1268 167¢ (.FLAG AND (.VAL-DESCCBBG$B_VALUE_DTYPEJ EQL BSC$K_DTYPE_TF)) 24 
Py e 
3: 1566 1674 BEGIN s | 
3; 1567 1675 3 4 
P4 1568 1676 . 4 e | 
3; 1569 1677 ! We have a bit-field. We now print the ‘<p,s,.e>"' information unless 2 4 
3 1370 1078 the bitfield just happens to cover a byte-aligned longword. 3 4 
: 1372 1680 4 IF NOT (.VAL_DESCCDBG$L_VALUE_POS) EQL 0 AND 3 
3; 157 1681 4 -VAL_DESCCDBG$W_VALUE_LENGTH] EQL 32) gi 
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DEBUG. 
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FLAG, 9$ 
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8 (R2) 
g0(R2), #32 
R5 


#1, DBGSPRINT 
28(Re) 
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#1, DBGSPRINT 
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P.AD 
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#1, DBGSPRINT 
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GLOBAL ROUTINE DBGSPRINT_IDENTIFIER(PRIM_DESC) = 


FUNCTION 


into primary descriptor + o 
in the 7 


Pp 
PRIM_DESC: REF DBGSPRIMARY; : 


ILTIN 
ACTUALCOUNT, ? 
ACTUALPARAME TER; : 


LITERAL 


DESCR_SIZE = 20; 


BIND 
BACK_SLASH = 


LOCAL 
ADDRESS: VECTOR[2, LONG), 
ARRAY_FLAG, 


BITLEN 

BIT OFFSET 

BYTE OFFSET, 

CHAR TABLE: REF VECTORC,LONG), 
FCODE 

ORMAT, 

HERE, 

INFO. FLAG 


INFO-TABLE: REF PRTINFOSTABLE, 


KIN 

NAMEPTR: REF VECTORC,BYTE), 
NEXT NODE: REF DBGSPRIM_NODE, 
PATHRAME: REF PTHSPATHNAME, 
PATHNAME_FLAG, 
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RINT.B32s1 age 438 


This routine takes a Beat descriptor or turns volatile value descriptor 
t fset, then based on the language code 
descriptor and the print format ee Mo nts out the 


there is no symbolization can be 


ddress --X--> primary + offset) then absolute address will 


- Pointer to Primary Descriptor or Value Descriptor. 


Format Code 0: data component name, single data name 


¢ hag symbol name + offset. If 
: done, (a 
be printed. 
i INPUTS 
PRIM_DESC 
} argument2 - Print Format Code. 
: Format Code 1: data name 
Format code 2: M\R\data name 
i OUTPUTS 
None. 
BEGIN 


Pointer to Primary Root Node 


The number of actual 
Select the N-th actua 


arameters 
parameter 


Buffer size in bytes 


UPLIT BYTEC(ZASCIC "\"): VECTORC,BYTE); 


Address descriptor byte and offset 
Flag set to indicate array subscript 

f tp is seresey printed 
Bit length of array element 
Bit offset from SYMID : 
Byte offset from the Primary Descriptor 
Bottom of the stac 
Pointer to Print Character Table 
Format Code 
Print Format for Primary Symbols 
jonperery stack pointer 
Print Information Flag 
Pointer to Print Information Table 
Symid’s kind ‘ 
Pointer to a Counted string | 
Next Sub-Node in Primary Descriptor 
Pointer to Pathname Descriptor 
Flag set to true to indicate we 

have a pathname 


| 
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! Reference Modifier Flag 

! Address of Sub-Node List head in Root 

! Pointer to Ah me a Sub-Node 

! Pointer to print language tables 
Flag set to indicate the pointer is 


1 
1 
REFMOD_FLAG, : 
PRIM_HEAD, ! 
PRIM_NODE: REF wt accent : 
PTR: REF VECTORL,LONGJ, : 
PTR_FLAG, ' 
’ encountered 
! Pointer to register descriptor 
! Saved Dtype from Value Descriptor 
' Saved Length from Value Descriptor 
! Pointer to SYMID 
' A blockvector of pointers 
' Flag set to indicate stack overflow 
! Flag set to indicate overflow 
SuBVEC TOR: ! Pointer to subscript block-vector 
REF DBGSPRIM_NODE_SUBS, in ore Descr Array Sub-Node 
' 
' 
' 
' 
! 


TO ! Top of the stac 

TYPEID: REF RSTSENTRY i Pointer to TYPEID 

VALPTR: REF DBGSVALDESC, i Pointer to value descriptor 
VAL_DESC: REF DBGSVALDESC, 


! Temporary variable 
VMS_DESC: BLOCK (8,BYTE); 


LENGT 
YMIO: REF RSTSENTRY, 
STACK: PRTIDSSTACK, 
STKO 


SUBOVF 


SSN FASO 
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! Value descriptor 
! A VMS descriptor 


First we set up some print flags by the current language setting. 
DBGSPRINT_SET_LANGUAGE ( . DBG$GB_LANGUAGE) ; 


: Volatile Value Descriptors. We do our best to symbolize this absolute 
! address back to primary, or primarytoffset. If we cannot symbolize it 
; at all then we print it as absolute address. 


VAL_DESC = 0; 

BYTE_OFFSET = 0; 
BIT_OFFSET 
. 


F -aPRIMDESCLDBGSB_DHDR_ TYPE] EQL DBGS$K_V_VALUE_DESC 


BEGIN 
VAL_DESC = .PRIM_DESC; 
SAVE_VAL_DTYPE = 


SAVE-VAL~LENGTH = .VAL_DESCCDBGSW_VALUE_LENGTH); 


! First we try to see if the given address is a register address 
! If it is, a register descriptor is returned. Then DBGSSTA_REG 
' is called to converts the fogieter descriptor into a counted A 
! name. Otherwise, DBGSSTA_GETSYMOFF is called. 


' 
! 
' 
i Note: The correct logic should call DBGSSTA_GETSYMOFF first, if every- 
! thing failed then try to see if the given address is a register 

! address. If it fails, then print it as an absolute address. Z 

i Currently DBGSSTA_GETSYMOFF tries to symbolize a given address in 

i DBGSREG_ ALUES and“returns the first SYMID found bound to that 

' 
R 
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iSTER_NAME 
ScIl 


: repister. Symbolization needs to associate the scope with the register. 
: l this piece of code is in place, we'll not symbolize the register 
' address. We'll just print it and immediately return. 


EGDESCR = DBGSSTA_ADDRESS_TO_REGDESCR(.VAL_DESCCDBGSL_VALUE _POINTER]); 
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18-se =1984 02:27:4 AX-11 Bliss-32 V4.0-742 
12-8 08-1 3be 05:90:08 DEBUG. SRC JDBGPRINT.B32;1 
IF {REGDESCR NEQ 0 
IN 
PTR = DBGSSTA_REGISTLR_NAME(.REGDESCR): 
DBG PRINT(UPLIT BYTECRASCIC "'AC'), .NAMEPTR): 


! The address is not a register address. We thus try to symbolize it, 
but only if we are in symbolic mode. 


IF | ;,DBGSGB_MOD_PTRCMODE SYMBOLS] 
BEGIN 
ADDRESSCO] = .VAL_DESCCDBGSL_VALUE_POINTER); 
IF, VAL=DESCCDBGSB_VALUE CLASS EQC DSC$K_CLASS_UBS 
ADDRESSC(1) = .VAL_DESCCDBGSL_VALUE_POS] 


LSE 
ADDRESS(1} = 0; 
Samer ain (ADDRESS, SYMID, BIT_OFFSET); 


We are in non=-symbolic mode, so we set SYMID to zero. 


ELSE 
SYMID = 0; 


! If we cannot symbolize it, we print it as an absolute address and 
: then return to the caller. 


if .SYMID EQL 0 
THEN 
BEGIN 


' Build a VMS Descriptor of type longword unsigned, which 
is the type for absolute addresses. 


VMS_DESCCDSC$B_CLASS] = DSCSK_CLASS_2; 
VMS-DESCCDSC$B_DTYPE) = DSCSK_DTYPE_LU; 
VMS_DESCCDSCSW_LENGTH) = 4; 
VMS-DESCCDSC$A-POINTER) = VAL_DESCCDBGSL_VALUE_POINTER]; 
DBGSPRINT_VALUE_AS_INTEGER(VMS_DESC); 


! If this is a bit substring, print the angle brackets with the 
: offset, length, and sign extension information. Then return. 


DBGSPRINT_FIELD_REF(.VAL_DESC); 
RETURN .VAL_DEST; 
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We can symbolize it, so we build a Primary Descriptor from the 
SYMID and offset. 


Note: there is one case here we need to pay special attention to. 
I*LL use an example to explain. If you say, 


E FAT_RECORD<6,10,0> what we got is a volatile value descriptor 
comes into this routine, with the Class UBS, one of the Dtype 
SV, SVU, V, VU, and Byte address for FAT_RECORD, Bit offset and 
length. When we symbolize the address to symid to eorery and 
some bit offsets, we know the fact that we need to print bit offsets 
to the peceery from the given CLASS UBS, and DTYPE Sv, SVU, V, VU. 
The following code gets these information based on these facts. 

So, we'll BR nt it A\R\FAT REC RD.BG2<1,0,0>: 40, say the address 

of FAT_RECORD.BG2 is 7FFAF&07<5,11,0>. 


Now, consider another case, If x3u say, 

E 7FFAF4D8 (this is FAT_RECORD.BG2 + some offsets). Since the 
volatile value descriptor for this address has Class S, Dtype 

L, length 4. So after we turn the symid to primary, we forgot 
the fact that we really have bit offsets to the primary for there 
are no CLASS and DTYPE to drive this information out. 


dens Geer ec mre eces ec erases es arases esterases ecerecsraseseseemrscasesaeasscasace 


SAVE_VAL_DTYPE is the hack to do the trick. In order words, 
now that we know we have bit offsets to primary, we plung in | 
Dtype V to the value descriptor to do the bit offset symbolization. 
After we are done we put the orignal back. The reason we do not 
put in the ales is see the first ar 37 since we do not 
uild primary with the offsets for FAT_RECORD<6,10,0> case, there 
is not a consistent | for this routine to build that way. 
We'll change it later if there is a need. 
If the above case showed up, we always print the length zero. 
SAVE_VAL_LENGTH is used to saved the or terns. length. So the 
original value descriptor can be returned back. 
RIM_DESC = DBGSSYMID_TO_PRIMARY(.SYMID, BIT_OFFSET); 
F .BIT_OFFSET NEQ 0 
HEN 
BEGIN 
IF (.VAL_DESCCDBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_SV) OR 
(.VAL_DESCCDBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_SVU) OR 
(.VAL_DESCCDBGSB_VALUE_DTYPEJ EQL DSCSK_DTYPE_V) OR 
(.VAL_DESCCDBG$B_VALUE_DTYPEJ EQL DSCSK_DTYPE_VU) OR 
(.VAL_DESCCDBGS$B_VALUE_CLASSJ EQL DSCS$K_CLASS_ 
SAVE_VAL_DTYPE = 0 
ELSE 


' Note: This trick only applies to the item that does 
} not have a byte offset. 


BEGIN 
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SRC 


& 0 
DEBUG. SRC JDBGPRINT .B32:1 age $4 


1935 é IF (.BIT_OFFSET = ((.BIT_OFFSET / 8) * 8)) NEQ 0 

19 § THEN 

19 6 BEGIN 

19 : 6 SAVE_VAL_DTYPE = .VAL Pesce oecse VALUE _DTYPE); 
1939 6 VAL DESCEDEGSE VALUE _BIYEE = dsCSK_pI PE V; 
1940 6 VAL DESC DBG$W-VALUE-LENGTH] = 8 * [VAL_DESCCDBGS$W_VALUE_LENGTH); 
194 

1908 $ ELSE 

Hg 2 - SAVE_VAL_DTYPE = 0; 

1946 4 : 

19c7 4 BYTE _OFFSET = .BIT_OFFSET / 8; 

1948 4 BIT_OFFSET = ,BIT_OFFSET = .BYTE_OFFSET * 8; 

1949 4 IF T.VAL_DESCCDBGSB_VALUE_DTYPE) EQL DSCSK_OTYPE_SV) OR 
1950 4 (.VAL-DESCCDBG$B_VALUE_DTYPE) EQL DSCS$K_DTYPE_SVU) OR 
1951 4 (.VAL-DESCCDBG$B_VALUE_DTYPE) EQL DSCSK-DTYPE-V) OR 
1998 4 (.VAL-DESCCDBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_VU) OR 
1327 ; wen’ VAL=DESC DBG$B_VALUE-CLASS] EQL DSC$K_CLASS_UBS) 
1955 5 BEGIN 

1936 é IF OL TAOFFSET EQL 0 

1958 6 BEGIN 

1928 6 UF jv AL-DESCCOBGSU_VALUE_LENGTH) LSS 32 

1961 BEGIN 

1968 7 BIT_OFFSET = .BYTE_OFFSET * 8; 

1963 7 BYTE_OFFSET = 0; 

1368 § : 

1966 5 END; 

1967 5 

1968 4 END; 

1990 : END 

He | 

1378 Adjust the offset for printing. 

1975 if .BIT_OFFSET NEQ 0 

1976 THEN 

1977 4 BEGIN 

1978 4 IF (.VAL_DESCCDBGS$B_VALUE_DTYPE] EQL DSCSK_DTYPE_SV) 0 
1979 4 (. VAL_DESCECDBG$B_VALUE_DTYPE) EQL DSCSK“DTYPE_SVU) OR 
1980 4 (. VAL-DESCCDBG$B_VALUE_DTYPE] EQL DSC$K_DTYPE-V) 

1981 4 (. VAL-DESCCDBG$B_VALUE_DTYPE) EQL DSCS$K-DTYPE-VU) OR 
198¢ ? (VAL DESC DBG$B_VALUE-CLASS) EQL DSCS$K-CLASS—UBS) 
1984 é VAL_DESCCDBGS$L_VALUE_POS) = .BIT_OFFSET; 

1986 END; 

135 

19 3 END; ! End of code for Volatile Value Descr. 
1990 

1991 ' Set up the Primary Symbol Print Format. For example: 


: 


Segoe 


Ssesesseess 
SELSSESRAES 


S 


SeSSee33 
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oO oO S 
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PAAR OIPOPIPYNIPPPPYIPINYIAININININININININININININI NINN ANNAN WANN PIPINIPUPIPOPIPUPIPUPINOPPOPD 


&Pwww 
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-Sep- DEBUG. SRC JDBGPRINT.832;1 
: Format 0 = K or (2 
: Format 1 = A.x or A(2) 
: Format 2 = M\R\A or M\R\A.X or M\R\A(2) 
FORMAT = 2: 
If ACTUAL COUNT () GTR 1 THEN FORMAT = MINUCACTUALPARAMETER(2), 2); 
—<— EQL 2 


DBGSSTA_SYMPATHNAME (.PRIM_DESCCOBGSL_DHDR_SYMIDOJ, PATHNAME); 


: Output the none-data (code) item. 
IF _;,PRIM_DESCLDBGSB_DHDR_F CODE EQ. 0 


BEGIN 
4 ” decease LSS 2 
DBGSSTA_SYMNAME (.PRIM_DESCCDBGS$L_DHDR_SYMIDOJ], NAMEPTR) 


LSE 
DBGSNPATHDESC_TO_CS(.PATHNAME, NAMEPTR); 


DBGSPRINT(UPLIT BYTE(ZASCIC "!AC'), .NAMEPTR); 
PRINT OFFSETS AND_RETURN; 


! Data items are language-dependent. Load in Language Print Table 

! according to the language code in the Root Node. Set up the stack 
' pointers. This stac grows two ways, so we set up TOP and BOTTOM 
pointers relative to STACK_START. 


PTR = .LANGUAGE PRINT_TABLE_PTRSC.PRIM_DESCCDBG$B_DHDR_LANGJ] + TABLEBASE; 
INFO_TABLE = .PTRCO) 7 TABLEBASE; 

INFO-FLAG = .PTRC1); 

REFMOD FLAG = .PTR(2); 

TOP = BOTTOM = PRINT_STACK_START; 

ARRAY FLAG = FALSE; 


! Start from the fie | Root Node, gg be ds the forward Linked List. 

; get to Sub-Nodes which describe the individual components of the symbol 
! described by the Primary Descriptor. Save the Address of Sub-Node 

! List head in root, and some other information. 


PRIM_HEAD = PRIM_DESCCDBGSA_PRIM_FLINK); 
PRIM-NODE = .PRIM_HEAD; 
WHILE TRUE DO 

BEGIN 


' Link to the next Primary Descriptor Sub-Node in the List. If that 


om 


—-——- 


—_—, 


an 
bay 


RRARRARARRE EERE ELE 
DONA UE WN“ OOONOUE wr 


es 3 


< 
Fe Ss 


DOOOVOVOOOVOOVOVOVOVOVOVOOOVOVOO 
SRESS Re Se ESS SSS SSSSESFS 


Mw 
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foleoleleloleloelelolalelalalola) 
Foal oat oat eal alta alwal al val aval ale al oe 
WR" ODOONOUSWwR—O” 
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takes us back to the List head, exit the loop. 


PRIM_NODE = .PRIM_NODECDBGSL_PNODE_FLINK); 
IF .PRIM_NODE EQLA .PRIM_HEAD THEN-EXITLOOP; 


Go ahead and get the ee’ —, name. Check to see if this 
Symbot is the first symbol in the node; if it is, then check to see 
if this oe. needs a pathname (as determined by the FORMAT param- 
eter). If so, get the full pathname in Counted ASCII, and if not, 
just get the individual symbol name. 


PRIM_NODECDBGSL_PNODE_SYMID] EQL .PRIM_DESCCDBGS$L_DHDR_SYMIDOJ 


a ee ee ee ee 


rs 
HEN 
BEGIN 
DBGSSTA_SYMNAME (.PRIM_NODECDBGSL_PNODE_SYMID], NAMEPTR); 
Make a note that this symbol has M\R pathname only. 
iF .NAMEPTRCO] EQL 0 THEN PATHNAME_FLAG = 1; 
IF .FORMAT GEQ 
THEN 
BEGIN 
DBGSNPATHDESC_TO_CS(.PATHNAME, NAMEPTR); 


So far, this is only affect cobol. 


Push Pathname (M\R) and \ (In this case, there is no data name, 
indicated by PATHNAME FLAG set to 1). After we have done 

this, we set the PATHNAME_FLAG to 2 to indicate the next 

data name needs to go after \ (need to put it at the bottom 

of the stack). 


PATHNAME_FLAG EQL 1 


dome co wee mc mc esas erase 


-_ 
HEN 
SH(TRUE, STACK, TOP, BACK SLASH); 
SH(TRUE, STACK, TOP, .NAMEPTR); 


: Since we have done a push, go get one more data node. 


PRIM_NODE = .PRIM_NODECDBGS$L_PNODE_FLINK); 
IF .PRIM_NODECDBGSL_PNODE_SYMID) NEQ 0 


DBGSSTA_SYMNAME (.PRIM_NODECDBGS$L_PNODE_SYMIDJ, NAMEPTR) 


ELSE 
NAMEPTR = 0; 
END; 


END; ; 
END 


Be Se Se Se Oe Oe Be Be Se Se Se Ge Ge Se Ge Ge Se Fe Ge Ge Se Fe Se Se Fe Se Se Se Se FH Se Se os Se Se Se Se Ge Ss Se Se Se Se Ge Se Se Se Se Se Se Se Se os Ge ee. 
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RINT.832;1 
! This is not the first yee in the full mame, so we do not need the 
} full pathname. Just get the individual symbol name if one exists. 
ELSE 
BEG! 
IF_ .PRIM_NODECDBGSL_PNODE_SYMID] NEQ 0 
DBGSSTA_SYMNAME (.PRIM_NODECDBGSL_PNODE_SYMIDJ, NAMEPTR) 


ELSE 
NAMEPTR = 0; 


END; 
! Get each node's FCODE. Based on the FCODE, load in proper print 
characters and print routine index. 


FORMAT = (IF .FORMAT EQL 0 THEN FALSE ELSE TRUE); 
FCODE = .PRIM_NODECDBG$B_PNODE F : 


CHAR_TABLE = .INFO TABLEL.FCODE, PRTINFOSL_CHARTBL] + TABLEBASE; 
CASE~.INFO_TABLEC.FCODE, PRTINFOSL_ROUT_INDEX] FROM PRTSK_MIN_ROUT 
TO PRTSK"MAX"ROUT OF 


SET 
: General data item name, it fcode is not one of the following 
for example, ARRAY, or RECORD, or Pointer. 
CPRTSK_ OTHER): 
IF .PATHNAME_FLAG EQL 2 
THEN 


BEGIN 
STKOVF = PRINT_PUSH(FALSE, STACK, BOTTOM, .NAMEPTR); 
PATHNAME.FLAG = 3; 


ELSE 
- STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 


Print Array. 


CPRT$K_ARRAY): 
BEGIN 
! If the pathname flag set to 2, we always push the name _ 
' at the bottom of the stack after the \. After the operation 
set the flag to 3 to indiate the operation is back to normal. 
IF .PATHNAME_FLAG EQL 2 
THEN 
BEGIN 


Page $3 
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14-Sep-19 DEBUG. SRC JDBGPRINT.B32; 1 
STKOVF = RINT PUSH(FALSE, STACK, BOTTOM, .NAMEPTR) ; 
PATHNAME_FLAG = 3; 
END 
ELSE 
BEGIN 


Get the name of the array if the Print Format Code is not 0. 
iF .PRIM_NODECDBG$V_PNODE_EVAL] 
THEN 
BEGIN 
a seman 
STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 
END 


ELSE 
ND STKOVF = PRINT_PUSH(TRUE, STACK. TOP, .NAMEPTR); 


! Get the array subscripts. There are two way of gete ing it: 
' In COBOL hy subscripts are printed at the end of the 
! name string, where in other languages, array subscripts are 
' printed gions with the array name. This is indicated by 
NFO_LFLAG. For example, flag sets to FALSE for COBOL. 
if (NOT .FORMAT AND 

-PRIM_NODECOBG$V_PNODE_ EVAL] AND 

gain NODECO,0,32,0] EQL .PRIM_HEAD) OR 
‘aa -PRIM_NODECDBG$V_PNODE_EVAL]) 


BEGIN 

! Set Pathname flag back to 0 to indicate we should be 
' all done with our funny business of pushing the 

the data name after pathname\. 


PATHNAME_FLAG = 0; 
IF .INFO-FLAG 


HEN 
HERE = .TOP 
ELSE 
HERE = .BOTTOM; 
Place in the begin array subscript. 
iF NOT (NOT .INFO_FLAG AND .ARRAY_FLAG) 
BEGIN 


co 
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STKOVF = PRINT_PUSH(.INFO_FLAG, STAC 
CRAR_TABLECPRTSK_BEGIN_ CHAR + * TABLEBASE); 
ARRAY, FLAG =" TRUE? 


Get the subscript value. 


SUBVECTOR = PRIM_NODELDBGS$A_PNARR_SVECTOR]; 
INCR I FROM 0 TO”.PRIM_NODECDBGSB-PNARR_DIMCNT] - 1 DO 


BEGIN 
ee guanine -1, DBGSL_PNSUB_TYPEID] EQL 0 


BEGIN 
GET VALUE (SUBVECTORC. 1, DBG$L_PNSUB_SVALUE]); 
pixOvt PRINT_PUSH(.INFO_FLAG, STACK, HERE, .NAMEPTR); 


! This type needs some more vepis Build a value 
descriptor for this TYP 


ELse 
B 
VALPTR = DBGSMAKE_SKELETON DESC (DBGSK VALUE DESC, 4); 
TYPEID = .SUBV TORE + Dessi PNSUB 
VALPTREDBGSB. DHDR. ANG) ; .P Dest Lpacse bHDR _LANG); 
VALPTRCDBG$B_DHOR REND} i TYP Hanvatar es j; 
VALPTR DBGSB_DHDR= FCODE) = TTYBEIDERSTS™ KF CODED; 
VALPTRLDBGSL_DHDR-TYPEID] = .TYPEID; 
VALPTRLDBGSL~DHDR-SYMIDO] = .PRIM_DESCCDBGSL_DHDR_SYMIDOJ; 
DBG$GL_CURRERT_PRIMARY = grain DESC; 
BGSFICL_IN vas DESC(.TYPEIDCRSTSB_FCODEJ, .TYPEID, 

.PRIM_DESCCOBGSL_DHDR_SYMIDO) 

VA BG$A_VALOE VMSDESCJ, BITLEN, BIT_OFFSET); 
VALPTREDBGSL_VALOE ‘POINTER? = VALPTRLDBGSA_VALUE ADDRESS); 
VALPTRCDBG$L-VALUE-VALUEO) = .SUBVECTORC.1> DBGSC_PNSUB_ SVALUE); 
STKOVFE = PRINT PUSAC. INF O,FLAG. STACK, HER Ré, 


Place in Array separator. 


STKOVF = PRINT _PUSH(.INFO_FLAG, STACK, HER 
 CRAR_TABLECPRTSK_SEPARATOR_ anth + TABLEBASE); 


END; ! End of INCR getting the subscripts. 


Get offset, length, and sign. 
if .PRIM_DESCCDBG$V_DHDR_BLIBLK) 
THEN 


BEGIN 
heh -PRIM_DESCCOBG$V_DHDR_SUBREF J 


+ 


<o 


a 
ey 
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ea. 
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; 7 
; 7 
: Sige ; 
: 87 7 
; 88 7 
3 2189 7 
; 90 7 
3: 2191 7 
3 219 99 7 
: $130 so) 
> 2195 302 6 
3; 2196 03 6 
3; 2197 304 5 
3 98 0s 5 
: $380 ae 
: $601 $308 3 
3 2 0 2310 5 
; 2204 2311 5 
3; 2205 231 5 
eG 
+ 2208 315 5 
3; 2209 316 5 
3: 2210 317 5 
: $513 319 8 
: $8 50 § 
BR BBE 
: $13 35% 5 
; 2218 25. 4 
3; 2219 4 
3; 2220 

$ ; 1 3 8 

; 4 0 

; : 1 

> 2226 38 


END; 
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BEGIN 


} Get offset. 


GET_VALUE (PRIM_DESCCDBGS$W_PRIM_OFFSETJ); 
STKOVF = PRINT_PUSH(.INFO_FLAG, STACK, HERE, .NAMEPTR); 
STKOVF = PRINT-PUSH(.INFO-FLAG, STACK, HERE 
. CRAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 
Get Length. 
GET_VALUE (PRIM_DESCCOBG$W_PRIM_LENGTH)); 
STKOVF = PRINT-PUSH(.INFO-FLAG, STACK, HERE, .NAMEPTR); 
STKOVF = PRINT~PUSH(.INFO-FLAG, STACK, HERE, 
. CRAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 
Get sign. 
GET_VALUE (PRIM_DESCCDBG$V_DHDR_SGNEXTJ); 
STKOVF = PRINT-PUSH(.INFO-FLAG, STACK, HERE, .NAMEPTR); 
STKOVF = PRINT~PUSH(.INFO-FLAG, STACK, HERE, 
te .CRAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 
END; 
IF .INFO_FLAG 
TH 
TOP = .HERE 


ELSE 
BOTTOM = .HERE; 


' Put in close subscript, but not in COBOL case yet. We 
have one separator too many, so we overlay the last one. 
IF .INFO_FLAG 
THEN 

BEGI 

TOP = .TOP + 1; 

STKOVF = PRINT _PUSH(.INFO_FLAG, STACK, TOP 

nie .CRAR_TABLECPRTS$K_END_CHAR] + TABLEBASE); 


END; ! End of getting subscripts. 


Print general record/pointer format. 


CPRT$K_RECORD 
PRTSK~POINTER): 


Pat a8} 


ee 
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7 N 
3 IF_.PRIM_NODECDBG$V_PNODE _EVAL] 
0 BEG! 
1 IF_.FORMAT 
¢ TE 
EGIN 
& STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 
5 STKOVF = PRINT PUSH (TRUE STACK 
$ an . CRAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 
si oo 
me 
41 SE 
stg STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 
4 PTR_FLAG = FALSE; 
4 LF ~INFO_TABLEL.FCODE, PRTINFOSL_ROUT_INDEX] EQL PRTSK_POINTER 


N 
PTR_FLAG = TRUE; 
END; 
! In cobol there are record structure started with no name cases: 
' For example, in program FOO, 
"02 A PIC X, 


i We want to print it as "FOO\A", instead of "A of FOO". 
' So we use PATHNAME_FLAG to fudge this case. 


! 
! 
' 
] 
! 
' 
' 
. 
! Note: Since PLI and C go through different path of code, 
so this fudge does not affect PLI and C. 

C 


PRT$K_RECORD_COB): 
IF .PATHNAME_FLAG EQL 2 
THEN 


SND DD DD DDD AD IIIT BB BB BBB BE PAW 
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BEGIN 
IF <PRIM_NODECDBGSV_PNODE_EVAL] 


BEGIN 
IF_ .FORMAT 


morornororfor 
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BEGIN 
IF .NAMEPTR NEQ 0 
THEN 


Morofrofory 
CWODmDOnoo NNN 


AAA. A.A ANA 
DOO OOD IIAP PD DE BB MN. MN. ANAM. MN. AAA AMMAN AAA EB BBE EE DIINO AAAI 


BEGIN 

2 IF .NAMEPTRLO] NEQ 0 
2 THEN 
é BEGIN 

87 STKOVF = PRINT_PUSH(FALSE, STACK, BOTTOM, .NAMEPTR); 
g 88 STKOVF = PRINT“PUSH(TRUE, STACK, TOP 

89 .CHAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 
22 90 PATHNAME FLAG™= 3; 
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END 
ELSE 


IF_ .NAMEPTR NEQ 0 
BEGIN 
IF .NAMEPTRCO] NEQ 0 
THEN 


BEGIN 
STKOVF = PRINT_PUSH(FALSE, STACK, BOTTOM, .NAMEPTR); 
PATHNAME.FLAG = 3; 


END; 
END; 


END 
Back to the normal case. 
ELSE 
BEGIN 
Ee ya, prcammtes: baste cinta 


BEGIN 
IF .NAMEPTR NEQ 0 
THEN 
BEGIN 
IF .NAMEPTRCO] NEQ 0 
THEN 
STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 


OVF = PRINT~PUSH(TRUE, STACK, TO 
: . CHAR_TABLECPRT$K_SEPARATOR. CHARS + TABLEBASE); 


END 
ELSE 
STKOVF = PRINT_PUSH(TRUE, STACK, TOP 
ia .CHAR_TABLECPRTSK_SEPARATOR. CHAR + TABLEBASE); 


END 
ELSE 


BEGIN 
IF .NAMEPTR NEQ 0 
THEN 


BEGIN 
M4 ~NAMEPTRCO) NEQ 0 
END STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 


| 
| DBGPRINT 

voee 

3 1 au 
; ag 109 
3 234 450 
: 4 451 
> 2345 128 
>; 2546 45 
3; 2347 454 
3 2348 455 
3: 2349 $28 
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3 51 458 
; 26 459 
3; 235 460 
3 2354 461 
§ $32? rhe 
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3 Seer 464 
; 2358 465 
3; 2359 2466 
3; 2360 2467 
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3 $06 2469 
: 236 2470 
3 2364 2471 
3; 2365 sore 
3 $308 247 
: 2367 2474 
3; 2368 2475 
3 $368 2476 
; 2370 2477 
3; 2371 2478 
$ s3i¢ 2479 
3: 237 2480 
3 2374 2481 
3; 2375 secs 
3: 2376 248 
3; 2377 2484 
; $38 2485 
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; 2380 tH 
3; 2381 488 
3 $356 seep 
: 238 490 
; 84 $23. 
3 85 re 
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3; 239 499 
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3 $e 501 
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PIR_FLAG = FALSE 

IF TINFO_ TABLE ECODE, PRTINFOSL_ROUT_INDEXI EQL PRTSK_POINTER 
PTR_FLAG = TRUE; 

END; 


Print C pointer. 
at lb C): 
NODE = .PRIM_NODECDBGSL_PNODE_FLINKI; 
IF” PRI. NODE CDBG$V _PNODE_EVALJ 
BEGIN 
IF FORMAT 
THEN 
BEGIN 
IF a sig novel. 32,0] EQL .PRIM_HEAD 


OR 
Nop DELDBGSE_ PNODE_FCODE] EOL RST$K_TYPE_TPTR OR 
renee" “NODE CDBG$B~PNODE-F CODE] EQL RST$K-TYPE_PTR 


STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 

STKOVF = PRINT ~PUSH(FALSE, STACK 

se . CHAR_TABLECPRTSK. SEPARATOR_CHAR) + TABLEBASE); 
ELSE 

BEGIN 

STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 

STKOVF = PRINT PUSH(TRUE, 


STACK, TOP, 
. CHAR TABLELPRTSK _RECPTR_CHAR] + TABLEBASE); 
ern. FLAG = TROE; 


END; 
END 


LSE 
STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 


END; 


Print C and PLI record format. 
CPRTSK RECORD_C_PLIJ: 
IF .PRIM_NODECDBG$V_PNODE_EVAL] 
THEN 


BEGIN 
IF _ .FORMAT 
THEN 
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p-19 DEBUG. SRC JDBGPRINT.B32; 1 
BEGIN 
IF .PTR_FLAG 
THEN 
STKOVF = PRINT PUSH(TRUE, STACK, TOP, .NAMEPTR) 
ELSE 


PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 
PRINT PUSH(TRUE, STACK, TOP, 
. CHAR_TABLECPRTSK_SEPARATOR_CHAR] + TABLEBASE); 


vw 
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END; 
END 


ELSE 
STKOVF = PRINT_PUSH(TRUE, STACK, TOP, .NAMEPTR); 


PTR_FLAG = FALSE; 
END; 


: If this is a Variant Sub-Node, do nothing. Record Variants have 
! no effect on the printed variable name, so we simply skip this 
Sub-Node and go on to the next one. 


CPRTSK_VARIANT]: 
! If we get here, there is an invalid print routine index in the 
Print Information Table. Signal an internal error. 


CINRANGE, OUTRANGE): 
$DBG_ERROR('DBGPRINT\DBGSPRINT_IDENTIFIER unknown print index'); 


TES; ' End of CASE on Print Routine Index. 


END; ! End of WHILE Primary Descriptor Loop. 
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Fix up array close subscript for COBOL. 
iF NOT .INFO_FLAG 
THEN 
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BEGIN 
IF .BOTTOM GTR PRINT_STACK_START AND 
eee ELF LAS EoC 0 


BEGIN 
BOTTOM = ,BOTTOM = 1; 


1 
CHAR TABLE = .INFO_TABLECRSTSK_TYPE_ARRAY, PRTINFOSL_CHARTBL] * TABLEBASE; 
STKOVF = PRINT PUSA(.INFO FLAG, STACK ‘ 

+ .CRAR_TABLECPRT$K_END_CHAR] + TABLEBASE); 


aan 
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G 

DBGPRINT 16-Sep 4 AX-11 Bliss-32 V4.0-742 
bee 0 14-Sep 71982 6: $34 DEBUG.SR RCIDBGPRINT.. B32;1 

; 2455 6¢ 

; 2456 6 END; 

3; 24657 64 

: ¢ § 202 ' Get th f difi F l in COBO FORTR 

; e e refer wy modifier. or example n ia AN, one can sa 

‘ re ¢ $67 CHAR(1,10)(2:3). Or if this is a bit-string sub-reference, get that. . 

: 246 569 if .PRIM_DESCCDBG$V_DHDR_SUBREF J 

3; 246 570 THEN o a 7 

3 2464 ef) BEGIN 

: 2465 if IF NOT .PRIM_DESCCDBG$V_DHDR_BLIBLK) 

3; 246 ef THEN 

3; 246 74 & BEGIN 

3 2468 575 4 IF NOT .PRIM_DESCCDBG$V_DHDR_AGGR] 

3; 2469 $278 4 THEN 

; 2470 57 5 BEGIN 

3s 24671 5278 5 CHAR_TABLE = .INFO_TABLECRSTS$K_TYPE_COMMON 

3 247 579 5 RTINFOSL CRARTBL J + -amsireatte 

; 3c $280 2 HERE = (IF .INFO_FLAG THEN .TOP ECSE -BOTTOM) 

3 2475 S286 5 

: 278 seer : } Place in the begin reference modifier anes 

3; 2478 2585 5 STKOVF = PRINT_PUSH(.INFO_FLAG, STACK 

; 2479 2586 5 .CRAR _TABLECPRTSK BEGIN. CHAR ; *TABLEBASE);: 

3; 2480 2587 5 

3; 2481 2588 5 

3: 2482 2589 5 ' Get the value. 

3: 2483 2590 5 

> 2484 2591 5 Gey VALUE (PRIM_DESCCDBG$wW_ ay -OFFSETI); 

3: 2485 $236 5 TKOVF = PRINT_PUSH(.INFO_F LAG, eee HERE, -NAMEPTR); 

3; 2486 259 5 STROVE = PRINT “PUSH. INFO-F TACK, HERE, 

: 2687 2594 5 .CAAR_ TABLELPRTSK OSEBARATORS CHAR] + TABLEBASE); 

3; 2488 S202 5 

3; 2489 596 5 

: 24690 2597 5 ' Get the value. 

3: 2491 2598 5 ! 

3: 249 2599 5 IF .REFMOD_FLAG 

3; 2469 $600 5 THEN 

3 2494 601 5 VALUE = .PRIM_DESCCOBGSW_PRIM_ ET) + 

> 2495 2602 5 .PRIM~DESCCDOBGSW-PRIM-LENGTH] - 

3: 2496 2603 5 

3; 2497 2604 5 ELSE 

: rhs 4 $082 2 VALUE = .PRIM_DESCCOBG$W_PRIM_LENGTH); 

3; 2500 2607 5§ GET_VALUE (VALUE); 

3; 2501 2608 5§ STKOVF = PRINT _PUSH(. INFO_ FLAG, STACK, WERE. -NAMEPTR); 

> 06 609 5 STROVE = PRINT~ arerees INFO. 4s STACK, HER 

: 203 610 2 ABCECPRTSK_END. CHAR] + TABLEBASE); 

3; 2505 oi¢ 5 IF_ .INFO_FLAG 

3; 2506 613 5 T 

; 2507 614 § TOP = .HERE 

3; 2508 615 5§ 

; 2509 616 2 ELSE 

; 2510 61 BOTTOM = HERE; 

: 2511 2618 § 
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END; 
END; ! End of getting reference modifier. 
END; ! End of getting sub-reference. 
+ chara is any truncation during the process, give an informational 
! signal. 
! 
iF .STKOVF OR .SUBOVF THEN SIGNAL (DBG$_STGTRUNC); 


TOP = MAX(.TOP + 1, 0); 
BOTTOM = MIN(.BOTTOM, PRINT_STACK_SIZE = 1); 


! Go through the pointers to ASCIC strings, accumulated the strings. 
Print the stack from bottom to top direction. 
i - INFO_FLAG 
DECR I FROM .BOTTOM TO .TOP DO 
IF .STACKC.1, PRTIDSSTACK_FLAG) 
DBGSPRINT_VALUE(.STACKC.1, PRTIDSSTACK_PTR], DBGSK_DEFAULT, FALSE, FALSE) 


SE 
DBGSPRINT(UPLIT BYTECZASCIC "!AC'), .STACKC.1, PRTIDSSTACK_PTRI); 
END 


} Print the stack from top to bottom direction. 


FROM .TOP TO .BOTTOM DO 
~STACKC.1, PRTIDSSTACK_FLAG) 
DBGSPRINT_VALUE(.STACKC.1, PRTIDSSTACK_PTR], DBGSK_DEFAULT, FALSE, FALSE) 
DBGSPRINT(UPLIT BYTEC(ZASCIC "!AC*), .STACKC.1, PRTIDSSTACK_PTR)); 
END; 

END; 
! We are all done with the printing, print the offsets if there is any. 
Do some clean up and return. 
PRINT_OFFSETS_AND_RETURN; 
END; 
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¢ 01 st; 
$3 41 21 OCE 
43 41 21 pees 
4¢ 2 :.% ces 
4¢ 1 OCEC 
ae 1 OCFO 
4¢ 1 OCF4 
4¢ 1 OCF8 
4C 1 OCFC 
4C 5 1 03 00000 
of 53 21 00004 
47 42 44 31 BO008 
44 49 SF 54 4E 49 ‘ 0001 
68 of 75 20 00026 
6E 6F 6& QOD2A 
78 00039 
4C 53 21 03 B20 eA 
4C 53 21 03 00D 3 
4C 53 21 03 0004 
4C 53 $} 03 00D46 
43 41 21 03 OOD4A 
43 41 21 03 OOD4E 
OFFC 00000 
5E FO8C §=CE 9E 00002 
7E 000000006 00 9A 00007 
0000v CF 01 FB 43 
54 D4 0001 
08 AE 04 00015 
54 AE 04 00018 
BC 08 10 ED 00018 
03 13 00025 
0140 31 00027 
54 04 AC DO O002A 
04 AE 04 QO02E 
52 14 A& YE 00031 
6E 62 3C 00035 
18 A& 0D 00038 
000000006 00 9 FB 000 8 
0 D5 0004 
1D 13 00044 
50 DD st 
000000006 00 9 fe 004 
64 AE 0 00 0004F 
64 AE bp 0053 
00000000" EF 9F 00056 
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DBGSCODE ,NOWRT, 
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REGDESC 
#1, DB 
RO, NAME 
NAMEPTR 
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AL_DESC), R2 
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A 
DBGS$STA_ADDRESS_TO_REGDESCR 
ESCR 


SHR, 


DESC, VAL_DESC 
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a 
GPRINT 1b-se =1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 74 
| ¥Oe~000 VexSeb-1984 45:17:40 EeauG. skcSbBGPRINT B58. 9° (27) 
FBB6 CCF fe Os CALLS #2, DBGSPRINT ; 
1 61 BRB ; 1826 
50 0000009 G 0 09 063 2$: MOVE BG$GB_M0D_PTR, RO : 18 
FB AD 18 AG b0 006 MOVL 4(VAL_DESC), ADDRESS + 1836 
0D 0 Ag 1 0 CMPB (R2), #1 + 1837 
0 is 7 BNEQ ; 
FC AD 1¢ a, 00 9079 MOVL 28(VAL_DESC), ADDRESS+4 + 1839 
FC OAD OG 0080 3$: CLRL ADDRESS +4 + 1842 
54 AE 9F 00083 4$: PUSHAB BIT_OFFSET + 1844 
4 AE 9F 3 PUSHAB SYMID : 
F8 AD 9F 000 PUSHAB ADDRESS ; 
000000006 00 03 FB 008¢ CALLS #3, DBGSNEW_SYMBOLIZE : 
03 11 0009 BRB 6$ + 1833 
48 AE 04 00095 S$: CLRL SYMID + 1851 
48 AE DS 90098 6$: TSTL  SYMID > 1857 | 
e1 if 0098 BNEG 8S : 
70 AE 00040006 8F D 9009p MOVL #262148, VMS_DESC + 1867 
74 AE 18 Ad 9E OOOAS MOVAB 24(VAL_DESC)> VMS_DESC+4 + 1868 
70 AE 9F OOOAA PUSHAB VMS_DE + 1869 
000000006 00 g1 FB QOOAD CALLS #1, DBGSPRINT_VALUE_AS_INTEGER Pia 
FEB? =sCF 01 FB 00086 CALLS #1, DBGSPRINT_FIELD_REF : 
0A26 31 000BB 7$: BRW 138$ : 1876 
54 AE 9F OOOBE 8S: PUSHAB BI1T_OFFSET : 1916 
4C AE DD 000C1 PUSHL SYMT 3 
000000006 00 02 FB 000C4 CALLS #2, DBGSSYMID_TO_PRIMARY : 
04 AC 50 00 000CB MOVL RO, PRIM DESC : 
0 54 AE 00 OOOCF MOVL BIT_OFFSET, RO : 1917 
7A 13 00003 BEQL ; | 
29 02 A2 91 00005 CMPB sso 2(R2), #41 + 1920 
32 13 00009 BEQL : 
2A 02 A2 91 000DB CMPB (R2), #42 + 1921. 
2C 13 OOODF BEQL : | 
01 02 A2 91 0001 CMPB =s«o2 (R22), #1 + 1922 
26 13 OO0ES BEQL ; 
22 02 A2 91 000E7 CMPB =s-«.2(R2), #34 : 1923. 
20 13 OOOEB BEQL F 
0D 03 A2 91 OO0ED CMPB 4 =s«-3(R2), #13 > 1924 
1A 13 OOF 1 BEQL F | 
51 50 08 C¢ 900F 3 DIVL3 #8, RO, R1 : 1935 | 
51 08 C4 000F7 MULL2 #8. R1 ; 
51 0 D1 OOOFA CMPL =sRO.. R1 : 
0— 13 O00FD BEQL ; 
04 AE 02 Ad 9A Both MOVZBL 2(R2), SAVE _VAL_DTYPE : 1938) 
02 Ag 01 90 00104 MOVE #1, 2(R2) : 1939 
6 08 AG 00108 MULW2 #8. (R2) + 1940 
03 11 00108 BRB 10$ > 1935 
04 AE 04 00100 98: CLRL_ SAVE_VAL_DTYPE > 1944. 
08 AE 50 0 C7 0110 10$:  DIVL3 ug, RO, GBYTE_OFFSET > 1947 
50 08 AE g g 011 ASHL. #3. BYTE OFFSET, RO : 1948 
54 OA 0 C2 OO11A SUBL2 RO, BIT T F 
29 02 A2 91 OIE CMPB ss 2(R2), B41 + 1949 
18 13 001 BEQL 11$ : 
2A 02 A 91 00124 CMPB 2(R2), #42 ; 1950 
12 13 00128 BEQL 118 ; 
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| 
Kk 8 
_DBGPRINT 16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 75 
|¥O4-000 1e-sep-19 4 Og: erit DEBUG. SRCJDBGPRINT.B32;1 9° 29) 
01 02 A2 9 12A CMPB 2(R2), #1 : 1951 
0¢ 1 1 ‘ BEQL 1$ : 
22 02 A 94 1 CMPB e(R2), #34 : 1952 
06 1 1 BEQL 1$ : 
0D 03 A2 91 001 CMPB 3 s«3(R2), #13 : 1953 
131 13A BNEQ 12$ : 
54 AE 05 0013C 118: TSTL BIT OFFSET : 1956 
OF 1 13F BNEG 12$ : 
20 B1 00141 CMPW (Re), #32 + 1959 
1 144 BGEQU le : 
54 OE 08 AE 3 78 00146 ASHL #3, BYTE_OFFSET, BIT_OFFSET + 196 
8 AE D4 Oi4¢ CLRL BYTE _OFFSET : 196 
4 AE D3 14F 12$: TSTL  BIT_OFFSET + 1975 
23 13 00152 BEQL 14$ : 
29 02 Ag 91 00154 CMPB = s«2(R2), #41 : 1978 
18 13 00158 BEQL 13$ : 
2A 02 A2 91 0015A CMPB  =s-«-2(R2), #42 : 1979. 
12 13 00136 BEQL 13$ : | 
01 02 A2 91 0016 CMPB =s«o2(R2), #1 + 1980 
OC 13 00164 BEQL 13$ : | 
22 02 A2 91 00166 CMPB =s« 2 (R2), #34 + 1981 
06 13 O016A BEQL 13$ : 
0D 03 A2 91 0016¢ CMPB =s-s«-3(R2), #13 : 1982. 
05 12 00170 BNEQ 14$ : | 
1C AG 54 AE D0 00172 13$:  MOVL  BIT_OFFSET, 28(VAL_DESC) + 1984 
10 AE 02 DO 00177 14$:  MOVL #2, FORMAT > 1996. 
01 6C 91 00178 CMPB sé AP), #1 : 1997) 
10 1B 0017E BLEQU 16$ : 
50 08 AC 00 00180 MOVL  8(AP), RO F 
02 50 01 00184 CMPL RO, #2 ; 
03 1B 00187 BLEQU 15$ ; 
50 02 DO 00189 MOVL #2, RO ; 
10 AE 50 DO 0018C 15$:  MOVL RO. FORMAT : 
02 10 AE D1 00190 16$:  CMPL FORMAT, #2 : 1998 
17 12 00194 BNEQ 17$ : 
4C AE OF 00196 PUSHAB PATHNAME : 2000 | 
50 04 AC 00 00199 MOVL PRIM DESC, RO ; 
0c AO DD 0019D PUSHL ¥o(R0) : 
000000006 00 02 FB 001A0 CALLS #2, DBGSSTA_SYMPATHNAME : 
9 04 AC DO 001A7 17$: MOVL PRIM DESC, : 2005 
30 AE 04 AD 9E 001AB MOVAB 4(R9J, 48(SP) : 
00 30 BE 10 ED 90180 CMPZV #16, #8, a48(SP), #0 : 
03 13 00186 BEQL © 18$ : 
0087 3 01B8 BRW 27$ : 
02 10 AE 0100188 18$:  CMPL FORMAT, #2 + 2008 
OF 18 OO1BF BGEQ 19% ; 
64 AE 9F 001C1 PUSHAB NAMEPTR : 2010 
OC AD DD 001C4 PUSHL  12(R9) : 
000000006 00 02 FB 001C7 CALLS #2, DBGSSTA_SYMNAME ; 
0D 11 OIC BRB 208 : 
64 AE OF O10 19$:  PUSHAB NAMEPTR > 2013 
50 AE DD 0010 PUSHL PATHNAME : 
000000006 00 02 FB 001D6 CALLS #2, DBGSNPATHDESC_TO_CS ; 
64 «AE pp 01D 20$ PUSHL NAMEPTR : 2015 
00000000" EF 9F OO1E PUSHAB P.ADW ; 
FA2C CF 2 Fe OO1E CALLS #2, DBGSPRINT ; 
08 AE 05 OO1EB STL  BYTE_OFFSET ; 
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14-Sep-1984 DEBUG. SRCJDBGPRINT.B32;1 
08 13 OO1€ BEQL 218 
08 AF DD OOTF PUSHL BYTE_OFFSET 
0000v CF 9 . 1F CALLS #1, BBGSPRINT_OFFSET 
4 D iF 21$ TSTL AL DESC 
03 } 1FA BNEQ ; 
O8CA gure BRW 1$ 
54 AE b3 1FF 228 TSTL B11 OFFSET 
2€ 12 00 02 BNEQ 4$ 
06 30 BE 08 i FD 0 04 CHPZV 24. #8, a4B(SP), #6 
OA 30 BE 08 1 FD 020¢ CMPZ2V #24, #8, a48(SP), #10 
1¢ : 12 BNEQ 24$ 
50 AE OOF 14 23$: | PUSHAB TMP_VALDESC 
7E 83 8F 9A 00217 MOVZBL #137, =(SP) 
59 DD 00218 USHL R9 
000000006 00 03 FB 0021D CALLS #3, DBGSPRIM_TO_VAL 
50 50 AE DO 00224 MOVL § TMP_VALDESC,~RO 
6E 14 AO 10 00 ED 00228 CMPZ2V #0,-#16, 20(RO), SAVE_VAL_LENGTH 
07 13 00226 BEQL «=s«5$ 
4 DD 00230 248 PUSHL  VAL_DESC 
FD3B CCF 01 FB 00 3¢ CALLS #1, DBGSPRINT_FIELD_REF 
04 at D5 00 ; 258: TSTL SAVE_VAL_DTYPE 
03 12 O023A BNEQ 26s 
0872 31 0023C¢ BRW 130$ 
0866 31 0023F 26$: BRW 129$ 
1c AE 03 Ad 9A 00 de 27$:  MOVZBL 3(R9), 28(SP) 
50 00000000" EF 9E 0024 MOVAB TABLEBASE, RO 
51 1¢ AE 00 O04E MOVL  28(SP), Ri 
50 00000000'EF41 CO 00252 ADDL2 LANGUAGE PRINT_TABLE_PTRSCR1], PTR 
51 00000000" EF 9E O0¢34 MOV TABLEBASE, 
58 51 60 C1 00261 ADDL (PTR), R1, INFO_TABLE 
SA 04 AO DO 00265 MOVL  4(PTRS, INFO FLAG 
44 AE 08 ad 00 00269 MOVL 8(PTR), REFMOD_FLAG 
60 AE 3C DO 0026E MOVL #$ #60, BOTTOM 
5C oA 3¢ 00 bore MOVL #60, TOP 
28 AE 7C 00276 CLRQ  SUBOVF 
3¢ = AE. 7C: «00279 CLRQ ARRAY FLAG 
14 AE 04 0027C CLRL PATHNAME FLAG 
34 «OA 14 AD 99E 0027F MOVAB 20(R9), PRIM HEAD 
5 34 AE 00 00284 MOVL RIM HEAD, PRIM NODE 
53 63 DO 00288 28%:  MOVL (PRIM_NODE), PRIM_NODE 
34 OA 53 D1 00288 CMPL  PRIM_NODE, PRIM_HEAD 
03 12 0028F BNEQ 
05A9 31 99 91 BRW 8$ 
Oc a9 10 a3 D1 00294 298: CMPL §16(PRIM_NODE), 12(R9) 
63 12 00299 BNEQ 31$ 
64 AE 9F 00298 PUSHAB NAMEPTR 
10 AS DD 0029E PUSHL 16(PRIM_NODE) 
000000006 00 02 FB O2A1 CALLS #2, DBGSSTA_SYMNAME 
64 BE 95 002A8 TSTB § @NAMEPTR 
4 if O2AB BNEQ 3 
14 aE 1 D0 O02AD MOVL #1, PATHNAME_FLAG 
0 10 AE 01 6 B1 30$:  CMPL FORMAT, #2 
SE 19 00085 BLSS 33% 
4 AE OF 0 B7 PUSHAB NAMEPTR 
0 AE DD OO2BA PUSHL PATHNAME 
000000006 00 02 FB 002BD CALLS #2, DBGSNPATHDESC_TO_CS 
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eal HNAME_FLAG, #1 

BACK. SLASH 
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#4, PRINT_PUSH 

RO, STKOVF 

NAMEPT 
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#4, PRINT_PUSH 

RQ, TKOV an 
PATHNAME_FLAG 
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16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 78 
12-8 08- 1 3be 96: 7:4 {oeBUG. SRC DBGPRINT.832;1 9° 29) 
14 AE 03 D0 00 MOVL #3, PATHNAME_FLAG : 214 
FEFB a bh 39$:  BRW fi . + 213 
02 16 AE D1 D 40$: CMPL §- PATHNAME_FLAG, #2 + 2160 
1B 12 00391 BNEG 41$ : 
64 AE DD 00393 PUSHL NAMEPTR + 2163 
64 AE OF 0 3% PUSHAB BOTTOM : 
0080 cE F 0039 PUSHAB STACK : 
E D4 0039D CLRL = = (SP) : 
0000v CF g4 FB 039F CALLS #4, PRINT_PUSH : 
40 AE 9 D 00 AG MOVL RO, : 
14 AE 03 DO 003A8 MOVL #3. PATHNAME_FLAG + 216 
1D 11 0 AC BRB + 2160 
04 02 A&B €9 AE 41$: BLBC 2(R8), 42$ t 2173. 
19 10 AE €E9 0038 BLBC FORMAT, 44$ : 2176. 
64 AE DD 00386 428 PUSHL NAMEPTR + 2183. 
60 AE 9F 00389 PUSHAB TOP : 
0080 CE 9F 0038¢ PUSHAB STACK : 
01 DD 003C0 PUSHL #1 : 
0000v CF 4 FB 00 Ce CALLS #4, PRINT_PUSH : 
40 AE 0 bO 003C MOVL RO, STKOVF : 
OF 10 AE €E8 003CB 43$: BLBS FORMAT, 46$ + 2193 
07 02 AS €9 OO3CF 44$:  BLBC 2 + 2194 
34 AE 00 B83 D1 00303 CMPL § 90(PRIM_NODE), PRIM_HEAD > 2195 
08 13 00308 BEQL 7 : 
AC 10 AE €9 003DA 45$:  BLBC FORMAT, 39$ t 2196 
AB 02 A® £9 0030E 46$:  BLBC RB), + 2197 
14 AE D4 OO3E2 47$:  CLRL PATHNAME FLAG > 2206 
07 5A E9 003E5 BLBC —INFO_FLAG, 48$ : 220 
68 AE 5c AE DO 00368 MOVL TOP, “HERE : 220 
05 11 OO3ED BRB 49$ : 
68 AE 60 AE DO OO3EF 48$:  MOVL BOTTOM, : 221 
04 5A £8 003F4 49$:  BLBS  INFO_FLAG, 50$ > 221 
21 3c = AE.sC#EB -«003F7 BLBS § ARRAY_FLAG, 51$ ; 
50 00000000" EF 9E 003FB 50$: § MOVAB  TABLEBASE, RO + 2221 
00 8240 9F 00402 PUSHAB @0(CHAR_TABLE) CRO) F | 
6C AE 9F 00406 PUSHAB HERE : 2220. 
0080 CE 9F 00409 PUSHAB STACK ; 
5A DD 0040D PUSHL INFO_FLAG : 
0000v CF 04 FB 0040F CALLS #4, PRINT PUSH ; 
40 AE 50 DO 00414 MOVL RO, STKOVF 3 
3C AE 01 DO 00418 MOVL #1, ARRAY _FLAG > 222 
56 28 AS 9E 0041C 51$:  MOVAB 40(R3) SOBVECTOR > dee 
38 AE 18 =A3 9A 00420 MOVZBL 27(PRIM_NODE), 56(SP) 3 dee 
24 «AE 01 ce 04 5 MNEGL #1, I + 226 
OOEC 0429 BRW 57§ ; 
Se 24 «AE 14 ¢3 004 C 52$:  MULL3 #20, I, RB > 2231 
10 A846 SF 00431 PUSHAB 16(R8)(SUBVECTOR F 
18 AE 9 DO 00435 MOVL  a(SP)+, 24(SP) : 
43 12 00439 BNEG 55$ ; 
19 28 AE 3 0438 BLBS  SUBOVF, 53$ > 2234 
6846 SF 0043F PUSHAB (R8)CSUBVECTOR] ; 
9E DD 00442 PUSHL a(SP)+ ; 
00000000' EF 9F 00444 PUSHAB P.ADX ; 
6C AE OF O044A PUSHAB NAMEPTR : 
0000v CF FB O44p CALLS #3, GET SUBSCRIPT_VALUE ; 
28 «OA DO 0045 MOVL RO. SUBOVF 
13 11 00456 BRB 54§ : 
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Pp 


AX=-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGPRINT.B32;1 


(R8) CSUBVECTOR 

a(SP)¢ 

NAMEPTR 

#3, GET_SUBSCRIPT_VALUE 
NAMEPTR 


INFO_FLAG 
#4, PRINT_PUSH 
56$ 


#122, =(SP) 
#2, eee SKELETON_DESC 


RO, VAL 
4(SP), bin ty 
8(SP), ae a 
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VALP 
GSGL_ CURRENT PRIMARY 
FSET 
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SP 
LL_IN_VMS_DESC 
, 24(VALPTR) 
CT 
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ae 
INFO_FLAG 
#4, PRINT PUSH 
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6C AE OF E 
0000v CF Q FB 541 
28 AE DO 00546 
7E 10 h i) hy 62$ 
00000000" EF 3 5 § 
6C AE 9F 00556 
0000v CF 03 FB 00559 
64 AE BD 055€ 638: 
6C AE OF 00561 
0086 ct 9F 0564 
A DD 00568 
QO000v CF 9 FB Be een 
40 AE 0 D0 O56F 
50 00000000" EF 9E 00573 
58 50 04 ag C1 0057A 
58 DD 0057F 
6C AE 9F 00581 
0080 CE 9F 00584 
SA DD 00588 
0000v CF 04 FB O058A 
40 AE 50 DO 0058F 
18 28 AE Es 00593 
7E 12 Aad 3C 00597 
00000000" EF 9F 0059B 
6C Ae 9F QOOSAI 
0000v CF 03 FB 00584 
28 AE 50 D0 005a9 
12 11 005AD 
7E 12 AD 3C OOSAF 64S: 
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6C aE 9F 00589 
0000v CF 03 FB 0058C 
64 AE DD 005C1 658: 
6C AE 9F 005C4 
0080 CE 9F 005C7 
SA OD 005¢B 
0000v CF 04 FB 005CD 
40 AE 50 D0 00502 
58 DD 00506 
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0080 CE 9F 005DB 
5A 0D B20F 
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40 = AE 0 D0 00566 
1A 28 Ag E OSEA 
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te 85 68 ooaoe 
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00000000' EF SF 60 
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16(R9), =(SP) 
P.AEA 


SUBSCRIPT _VALUE 
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#3, GET_SUBSCRIPT_VALUE 
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SUBOVF, 64$ 

18(R9), =(SP) 
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a. -11 Bliss-32 V4.0-742 Page 8! 
16-Sep-1984 02:27:4 AX=11 B bos (27) 
“DBGPRINT eb -1986 $3:4 954 DEBUG. SRCJDBGPRINT .B32 st 
| VOs~ ; NAMEPTR : 
| ec AE OF QOSIE USHA HERE : 
| BORE OOF Bhete PUSHAB STACK : 
no oat PUSHL INFO. FLAG 
| 4 be58 CALLS #4, PRINT PUSH : 
oor” 36 D8 00630 MOVL RO, STKOVF : 2301 
ri 38 DD 006 | PUSH ; 2300 
$5 te i 3 6 PUSHAB STACK ; 
some 063A PUSHL INFO. FLAG 
; b4 FB O08 CALLS #4, PRINT PUSH 
mio i PETES aus, BE HR STERY oo ; 2308 
DO 00648 MOVL = HERE, ; 
saa OB tt Been ROVL 18 BOTTOM : 3317 
60 A oe Oe bossa Sos; Brus INFO_FLAG, 71$ : 
, FC2E 5 bo6s? BRW ees ; 3320 
05° EF 96 g06s> «| ROvAB  TRBLEBASE, RO : 
70 0000 ONe B2E0 SF doRee PUSHAB @8(CHAR_ TABLE) CRO] 9301 
60 AE 9F 00668 putes Atnee i 
0080 CE 9F 00668 PUSHL INFO_FLAG : 
0173 31 oer} BLBC (RB), 738 : $338 
OA 02 AB E9 00674 728: [Bc FORMAT, 785 > 2341 
. be AE BD Ooere PUSHL NAMEPTR ; 
ee ee te 
oons 31 0685 a ag: FLAG, #2 : 2372 
02 06 32 dosse “8 bNeo Bs re : 2375 
38 02 AB €9 0068 Blac FORMAT, 78 331 
5¢ PO OED pee MOVL  NAMEPTR, RO : 
30 om 85 8S 88858 Beal «79S : 2384 
BF ¥8 oocoe Bear | 79S} : 2387 
R ; 
$b 90 diets ASH WD ; 
0080 CE 9F 006A PUSHAB STACK é 
aE Bs 4 CALLS #4. PRINT_PUSH 
0000v CF $ BB be MOVL 0, STROVF : 2389 
40 AE , Be grey MOVAB  TABLEBASE, RO ; 
oot t0O Te B2k) OF OOSEE PUSHAB 94 (CHAR, TABLE) CROJ S o3gg 
AE OF O06BF PUSHAB 
0080 CE SF obec? PUSHAB STACK 
01 Dd 006¢ 4s ae HO : 2397 
AE 00 OCCA 758: -ROVL —WAREPTR, RO 
50 = fF how so es : 2400 
60 9 080 ure acs ; 2403 
604 PUSHL 
64 Ae OF 0086 PUSHAB BOTTOM 
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9 
bese =1984 02:27:4 AX-11 Bliss-32 V4.0-742 
120-800-1984 05:49 4 DEBUG. SRC IDBGP 

9F 00609 PUSHAB STACK 
D4 006DD CLRL 0s = (SP) 
FB OO6DF 76$: CALLS #4, PRINT_PUSH 
D 6E4 MOVL Rg. STKOVF 
DO 006E8 MOVL #3. PATHNAME_FLAG 
11 O06EC BRB 4$ 
9 O6EE 77$: +‘ BLBC (RB), 82$ 
E9 006Fo 78$: BLBC FORMAT, 84$ 
9 06F6 MOVL §-NAMEPTR, RO 

13 OO6FA BEQL 81$ 
3 O6FC TSTB = (RO) 

1 Gre 79$: BEQL  84$ 
Dd 0070 PUSHL RO 
OF 0702 80$:  PUSHAB TOP 
9F 0070 PUSHAB STACK 
DD 00709 PUSHL # 
FB 00708 CALLS #4, PRINT_PUSH 
DO 00710 OVL RO, STKOVF 
9€ 00714 81$:  MOVAB  TABLEBASE, RO 
9F 0071B PUSHAB @4(CHAR_TABLE)CROJ 
11 O0071F BRB 83$ 
09 00721 82$:  MOVL NAMEPTR, RO 

13 00725 BEQL 84$ 
95 00727 TSTB —- (RO) 

13 90729 BEQL  84$ 
DD 00728 PUSHL RO 
OF 00790 83$: | PUSHAB TOP 
9F 00730 PUSHAB STACK 
DD 00734 PUSHL #1 

FB 00736 CALLS #4, PRINT_PUSH 
DO 00738 MOVL RO, STKO 
D4 0073F 84$: CLRL = PTR_FLAG 

7F O07%2 PUSHAQ (INFO_TABLE)CFCODE) 
D1 0074 CMPL a(SsP)t, # 

12 00748 BNEQ  85$ 
31 0074A BRW 90$ 

100740 85$: BRW 28$ 
DO 00750 86$:  MOVL (PRIM_NODE), NEXT_NODE 
&8 00754 BLBS g(R8), 87$ 

1 00758 BRW 1$ 
E9 00758 87$: BLBC ‘FORMAT, 85$ 
D1 0075 CMPL §@0(PRIM_NODE), PRIM_HEAD 
13 00764 BEQL 88$ 
ci 00766 ADDL3 #9, NEXT_NODE, RO 

1 00768 cMPB Es (RO), 

13 00766 EQL «=s-« BBS 

Ci 007 ADDL3 #9, NEXT_NODE, RO 
91 00775 cMPB Es« (RO), #18 

12 00778 NEQ 89$ 
DD 0077A 88%: | PUSHL NAMEPTR 
9F 00770 PUSHAB TOP 
9F 00780 PUSHAB STACK 
DD 007 PUSHL @ 

FB 786 CALLS #4, PRINT PUSH 
DO 007 MOVL R 
9E 007 F MOVAB TABLEBASE, RO 
9F 00796 PUSHAB @4(CHAR_TABLE) CROJ 


RINT.832;1 
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2475 


ay 
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<9 
ar 


a 


F 9 
| DBGPRINT - ° o _ 
‘oes 1erSep-1986 13:47:40 EDeBUG. SRCSDBGPRINT- 85251 Pa9e 04) 


4 AE 99F OO79A PUSHAB BOTTOM + 2676 
0086 —E 9F 00790 PUSHAB STACK ; 
E D4 O07A1 CLRL = = (SP) : 
44 11 OO7A BRB 92$ : 
64 AE po 7A5 89$: | PUSHL NAMEPTR + 2480 
60 AE 9F OO7A PUSHAB TOP : 
0080 : 9F O07AB PUSHAB STACK : 
DD OO7AF PUSHL #1 : 
0000v CF 4 FB 00781 CALLS #4, PRINT PUSH ; 
40 aE 0 pO 00786 MOVL R tk OvF : 
50 00000000" EF 9€ 007BA MOVAB TABLEB + 2482 
OC B240 9F 907c) PUSHAB (CHARS EF ABLE) CROJ : 
AE 9F O007< PUSHAB ts + 2481 
0080 CE 9F 007¢8 PUSHAB STACK : 
01 od OO7CC PUSHL # : 
0000v CF 04 FB oo7ce CALLS #4, PRINT_PUSH : 
40 AE 50 00 0070 MOVL RO, STKOVF : 
2c AE gt DO 00707 90$: MOVL #1, PTR_FLAG 3; 2483 
D 11 00708 BRB + 2465 
64 AE DD 007DD 91$:  PUSHL NAMEPTR + 2491 
60 AE 9F 00760 PUSHAB TOP : 
0080 CE 9F OO7E PUSHAB STACK : 
01 DD 007E7 PUSHL #1 : 
0000v CF 04 FB OO7E9 92$: CALLS #4, PRINT_PUSH : 
40 AE 50 pO OO7EE MOVL RO, STKOVF F 
46 11 007F2 BRB + 2128 
2A 02 ABS €9 OO7F4 93%:  BLBC 2(RB), 94$ : 2500 
B 10 AE €9 007F8 BLBC FORMAT, 96$ : 2503 
22 2C «AE EB OO7FC BLBS PTR-FLAG, 94$ > 2506 
64 AE DD 00800 PUSHL NAMEPTR : 2512 
60 AE 9F 00803 PUSHAB TOP ; 
0080 CE 9F 00806 PUSHAB STACK ; 
01 DD OO80A PUSHL # : 
0000V CF 04 FB 0080C CALLS #4, PRINT_PUSH 3 
40 AE 50 . 00 00811 MOVL 0, STKOVF 3 
50 00000000" EF 9€ 00815 MOVAB TABLEBASE, RO > 2514 
04 8240 9F 0081C PUSHAB @4(CHAR_TABLE) CROJ ; 
03 11 00820 BRB 95 : 251 
64 AE DD 008 : 94$: | PUSHL NAMEPTR : 252 
60 AE 9F 00825 95$: | PUSHAB TOP : 
0080 CE 9F 00828 PUSHAB STACK F 
01 oD 008 C PUSHL #1 : 
OOCcov CF 04 FB 08 CALLS #4, PRINT PUSH : 
40 AE 50 D 08 MOVL RO, STK Ov F ; 
2c. oA bs 0837 963: CLRL = PTR_FLAG > 2525 
FAGB 31 08 A97$: BRW 4 $~ : 128 
37 SA £8 00830 98$: BLBS  INFO-FLAG, 99$ : 2550 
3¢ 60 AE D1 00 40 CMPL BOTTOM, #60 : 2553 
31 15 00844 BLEG 9$ : 
16 AE 05 00 46 TSTL | PATHNAME_FLAG > 2554 
2¢ if 084 BNEQ 99% ; 
60 AE p 0848 DECL BOTT : 2557 
50 00000000" EF ; 0 af WOVAB TABLEBASE, RO > 2558 
52 0 0¢ AB § 0 3 ADDL3 12(INFO_TABLE), RO, CHAR_TABLE : 
0 00000000' EF 9E 0085A MOVAB TABLEBASE, R > 2560 
08 B240 9F 00861 PUSHAB @8(CHAR_TABLE) CRO] ; 
64 AE 9F 00865 PUSHAB BOTTOM : 2559 
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| beereunt 1S-sep-19 4 96:¢0:4 AX=11 Bliss-32 V4.0-742 Pose 


| 14-Sep-1984 DEBUG. SRCJDBGPRINT.B32;1 
0080 CE oF 0 68 PUSHAB STACK ; 
A DD 0086C PUSHL INFO_FLAG : 
0000v CF 4 F § CALLS #4, PRINT_PUSH : 
40 AE 0 D MOVL RO, STKOV : 
03 BE 1 5 77 99$: BBS #1. a48(SP), 101$ + 2569 
0127 31 7¢ 100$: BRW 111$ : 
FB 30 «BE 4 £0 OO87F 101$: BBS #4, a48(SP), 1008 + 257 
FG 30 —s«BE 34 BLBS  a4&(sP), 106$ : 257 
30 00000000" EF SE 00 MOVAB TABLEBASE, RO : 2579 
52 04 AB Ci 0088F ADDL3 4(INFO_TABLE), RO, CHAR_TABLE : 
06 SA E9 00894 BLBC INEO_FAG, 108s + 2580 
5 5c AE 4 0897 MOVL Top R : 
04 11 00898 BRB 103$ : 
50 60 AE D0 0890 1028: MOVL BOTTOM, RO : 
68 AE 50 DO OOBA1 103$: MOVL RO, HERE : 
50 00000000" EF 9E OOBAS MOVAB TABLEBASE, R + 2586 
00 8240 9F OO8AC PUSHAB @0(CHAR_TABLE) CRO] ; 
6C AE OF 0880 PUSHAB HERE > 2585 
0080 cE 9F 0088 PUSHAB STACK : 
A DD 00887 PUSHL INFO FLAG ; 
0000v CF 04 FB 00889 CALLS #4, BRINT_PUSH 3 
4 ag 50 00 at MOVL RO, STKOVF 3 
5 10 A9 3 08C MOVAB 16(R9), R7 + 2591 
19 28 AE : 008¢6 BLBS § SUBOVF, 104$ : 
53 67 32 OOBCA CVTWL = (R7), R3 : 
53 DD 008CD PUSHL R3 : 
00000000" EF SF OOBCF PUSHAB P.AEG ; 
6C Ag 9F 00805 PUSHAB NAMEPTR é 
0000v CF 03 FB 00808 CALLS #3, GET_SUBSCRIPT_VALUE : 
28 «AE 50 D0 00800 OVL RO. SUBOV ; 
13° 11 OO8E1 BRB 105$ : 
53 67 32 OO8E3 104%: CVTWL (R77), R3 ; 
53 DD O08E6 PUSHL R3 ; 
00000000' EF 9F 008E8 PUSHAB P.AEH : 
6C ag OF OOBEE PUSHAB NAMEPTR 3 
0000v CF 03 FB OO8F1 CALLS #3, GET_SUBSCRIPT_VALUE ; 
64 AE DD OO8F6 105$: PUSHL NAMEPTR : 2592 
6C AE SF O08F9 PUSHAB ; 
0080 CE 9F OOBFC PUSHAB STACK : 
5A 0D 90900 PUSHL INFO_FLAG ; 
0000v CF 04 FB 0306 CALLS #4, PRINT_PUSH : 
40 AE 50 D0 0090 MOVL RO, STKOV : 
50 00000000" EF 9E 009 MOVAB TABLEBASE, RO + 2594 
04 8240 i O91 PUSHAB @4(CHAR_TABLE)CROJ F 
6C AE 9F 0091 PUSHAB HERE : 2593 
0080 CE 9F 00919 PUSHAB STACK ; 
5A 0D 0091D PUSHL INFO_FLAG ; 
0000v CF 04 FB 0091F CALLS #4, PRINT_PUSH : 
40 AE 50 DO 00924 MOVL RO, STKOV : 
0B 44 Ag 9 00928 BLBC = REFMOD_FLAG, 1068 : 2599 
50 02 a? 3C 0092C MOVZWL 2(R7) RO > 2602 
50 FF A043 ( 09 OV -1(ROSCR3), VALUE ; 
04 1 09 BRB : 360) 
50 02 A? 3C 00937 106$: MOVZWL 2(R7), VALUE > 2605 
16 Ar 8 09 B 107$: BLBS  SuBOVF, 108$ > 2607 
50 DD 0093F PUSHL VALUE : 
00000000' EF 9F 00941 PUSHAB  P.AEI F 
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DEBUG. SRC JDBGPRINT.B32;1 
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"36s 
VALUE 
P.AEJ 
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#3, GET_SUBSCRIPT_VALUE 
NAMEPTR 

STACK 

INFO_FLAG 

#4, PRINT_PUSH 

RO, STKOVF 


TABLEBASE, RO 
a8 (CHAR_TABLE) CROJ 


r 
#1, LIBSSIGNAL 
#1. TOP, RO 
114$ 

RO 


RO, TOP 
BOTTOM, RO 
RO, #99 


RO, BOTTOM 
INFO_FLAG, 120$ 
BOTTOM, | 

§ 
# 
STACKCRO] 

a(SP)+ 

#4 DBGSPRINT_VALUE 
STACKCRO] 

a(SP)¢ 


#5, 1, RO 
#0 pptACk+4CROI, 117$ 


P.AEK 
#2, DBGSPRINT 


Pee 04) 


2608 
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14-Sep-1984 DEBUG.SR aban 055801 ) 
53 5c OA 1 C3 OOAIF 1208:  SUBL3 #1, TOP, I 3 2657 

F 11 O00A24 BRB 1 3s : 
50 53 5 C5 00A06 121%:  MULL3 RO : 2659 

14 7¢ aesd 0 a OA2A BBC #0, 4 ateesCROI, 122$ : 
| E 7C OOA 9 CLRO «= (5P) + 2661 

| 01 0D OOA PUSHL : 

0084 CE4O 9F O00A34 PUSHAB STACKCRO : 

9E DD 00A39 PUSHL * ; 

000000006 00 04 FB OOA : CALLS #4, DBGSPRINT_VALUE : 

11 11 OOA4 BRB 123$ : 
78 AEGO 9F O0A44 122$:  PUSHAB STACKERO] + 2663 

9E bo OAGB PUSHL as : 

00000000' FF F OOAGA PUSHAB ; 

FIC2—sCF 2 Fe OA90 CALLS We “DacsPR iN : 
53 60 AE £3 00A55 123$:  AOBLEQ 80 OfTOM 121$ + 2657 
08 AE d3 QOADA 124$:  TSTL OFF Sr + 2667 

08 13 00A5D BEQL tS : 

08 AE DD OOASF PUSHL BYTE_OFFSET : 

0000v CF 01 FB O0AGe CALLS #1, BBGSPRINT_OFFSET ; 

54 D5 OOA6? 125$: TSTL  VAL_DESC : 

SE 13 00A69 BEQL 1318 : 

54 AE 05 O00A6B TSTL BIT_OFFSET : 

2C 12 OOA6E BNEQ le78 ; 

06 30 «BE 08 18 €D 00A70 CMPZV #24, #8, @48(SP), #6 ; 

08 13 OOA76 BEQL 126$ : 

OA 30 BE 08 18 ED O00A78 CMP2V #34 #8, a48(SP), #10 : 

1C 12 OOA7E BNEQ 1278 : 

6C AE 9F OOA80 1268: PUSHAB TMP_VALDESC é 

7E 83 8F 9A OOA83 MOVZBL #137, -(SP) : 

59 DD 00A87 PUSHL R 3 

000000006 00 03° FB OOA89 CALLS #3, DBGSPRIM_ To. VAL ; 

50 6C AE DO 00A90 MOVL § TMP_VALDESC,~R ; 

6E 14 Ad 10 00 ED 00A94 CMPZV #0,-#16, 20(RO), SAVE_VAL_LENGTH ; 

07 13 OOA9A BEQL t2hs : 

54 DD OOA9C 127$:  PUSHL DESC : 

FCF CF 01 FB OOA9 CALLS yt ~PBeSPRINT FIELD_REF é 

04 AE Be OOAAS 128%:  TSTL SAVE _VAL_DTYPE 3 

09 13 OOAA BEQL 130$7 F 

16 AG 04 AE 90 OOAA8 129$: MOVB  SAVE_VAL_DTYPE, 22(VAL_DESC) ; 

14 AG 6E BO OOAAD MOVW  SAVE-VAL“LENGTH, 20(VAC_DESC) : 

29 16 AS 91 00AB1 130$: CMPB 22(VAL_DESC), #41 : 

2D 13 OOABS BEQL 133$ F 

2A 16 AS 91 O0OAB7 CMPB eg (VAL. DESC), #42 é 

27 13 OOABB BEQL  133$ : 

01 16 A& 91 OOABD CMPB #¢(VAL_ DESC), : 

21 13 OOACI BEQL 133% ; 

22 16 Ad 91 OOAC3 CMPB 26 (VAL_ DESC), #34 : 

1B 13 OOAC7 BEQL «11338 ; 

54 05 OOAC9 131%: TSTL VAL DESC F 

OA 13 OOACB BEQL 1328 3 

08 AE D5 OOACD TSTL BYTE_OFFSET ; 

1 if ADO BNEQ 133$7 ; 

54 AE 05 OOAD TSTL Bi OFFSET ; 

0p 12 OOAD BNEQ 1338 : 

9 DD OOAD? 132$: PUSHL R9 ; 

000000006 99 01 FB OAD9 CALLS #1, DBGSCOLLECT : 

9 DO OOAEO MOVL R9. RO ; 


——— 
| 
| 
| 
| 
| 
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04 QOAE3 RET 
50 54 b° AES 133%: MOVL VAL_DESC, RO 
4 QOAE7 RET 


iain acannon r 


i=] 


< 
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; Routine Size: 


9 


16-Se =1984 02:27:4 AX-11 Bliss V4.0-742 
14- ety 7 OS erit PeeUs. cnc ioBaPRINT Boo.) 

676 ! GLOBAL ROUTINE DBGSPRINT_IDENTIFIER_PC(PC) = 

678 1 ! FUNCTION 

679 1! This routine takes in a 32 bit address, build a Volatile Value 

680 1! Descriptor, and then call DBGSPRINT IDENTIFIER to print out that 

681 1! address as an absolute address. 

6 1! 

eas 1} INPUTS 

one : PC - 32 bits virtual address. 

68 1 ! OUTPUTS 

6 1 ! A Primary descriptor for the exact match or a Volatile Value 

686 1! Descriptor will be returned. 

ep 

24 3 BEGIN 

369 § LOCAL 

694 STATUS ' Return value 

3695 : VAL_DESC: REF DBGSVALDESC; i Pointer to value descriptor 

697 2 

698 § VAL_DESC = DBGSMAKE ae TON_DES be yoo V_VALUE_DESC); 

699 VAL _DESC DBG$B_DH R_LAN = BBG$G GUAG E; 

700 § VAL_DESCCDBG$B_DHDR_KIN ei: RSTSK BoatA 

2701 VAL_DESCCDBGS$B_DHDR-F €}) = 0; 

270 : VAL~DESCCDBG$B~VALUE_ CLASS] = agipses. 

270 VAL_DESC DBGS$B_VALUE_ DTYPE] = _DSCSK_OTYPE_LU; 

2706 2 VAL_DESCCDBGS$W_VALUE =LEN NGTH) = 4; 

2705 2 VAL-DESCCDBG$L- VALUE POINTER] = .PC; 

2706 2 STATUS = DBGSPRINT_ TOENTIFIERC, VAL _BESC); 

2707 2 RETURN .STATUS; 

2708 2 

2709 #1 END; 

0000 00000 -ENTRY pegePRint IDENTIFIER_PC, Save nothing 
7E 83 8F 9A 00002 MOVZBL p 
00000000G 00 1 FB 00006 CALLS “i, OBGSMAKE SKELETON_DESC 
51 000000006 00 9€ 0000D MOVAB pBGsGB LANGUAGE, R1 
03 A 1 90 bonis MOVB (VA ESC) 
06 AO 0600 8F BO 00018 MOVW 1336 6<AL DESC) 
14 AO 01040006 8F 00 OO01E MOVL  #17039364, 20(VAL_DESC) 
18 Ad 04 AC D0 00026 MOVL PC, 24(VAL_DESC 
50 DD B30 B PUSHL VAL_DESC 
F4E6 CF 01 FB 0002D CALLS #1, DBGSPRINT_IDENTIFIER 
04 00032 RET 


51 bytes, Routine Base: DBGSCODE + 1040 
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: 2605 710 
; 26 711 
; 260 at 
; 2608 71 
; 2609 714 
; 2610 715 
3 2611 rg 
3 ol¢ 71 
3; 261 at 
3 2614 71 
3; 2615 720 
3 $16 721 
3; 261 7 ; 
3; 2618 7 

3 2619 724 
; 2620 725 
3; 2621 726 
; 26 ¢ 727 
; 26 728 
3; 2624 C44 
3; 2625 730 
3 sos8 731 
3 2627 a3 
3; 2628 73 
3 a4 siee 
3 so 0 735 
3; 2631 2736 
3 O36 sree 
3: 263 738 
3 2634 sfzp 
3; 2635 740 
3 2636 2741 
3: 2637 gite 
3; 2638 274 
3; 2639 sree 
3 2640 745 
3 2641 2746 
; cose 2747 
3: 264 2748 
3 2644 2749 
3 oF 2750 
3 2646 2751 
3 2667 $736 
; $oe8 75 
3: 2649 754 
3; 2650 755 
3; 2651 756 
3 03g 757 
3; 265 758 
3: 2654 759 
; 2655 760 
3 2656 761 
3; 2657 76 
3; 2658 76 
3; 2659 764 
; 2660 765 
3; 2661 766 
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oe meme mee memes es ees eres =G) 
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LOBAL ROUTINE DBGSPRINT_OFFSET(VALUE): NOVALUE = 
FUNCTION 
This function prints a value in the current radix. It suppresses 
leading zeroes, except before hex A-F. It is designed to be used in 
printing positive offsets; it will not print ‘'0’', and will not print 
negative numbers. 
INPUTS 
VALUE = The value to be printed. Should be a number greater than 0. 
OUTPUTS 
The routine either prints the value in the correct radix, or signals 
an error. 
BEGIN 
LOCAL 


Index. 

Current radix. 

Length returned by SYSSFAO. 
Control desc. for SYSS$FAO. 
Output desc. for SYSSFAO. 
Output buffer. 


RADIX 
FAO_LENGTH: WORD 
CONTROL_DESC: BLOCKC8, BYTE), 
OUT DEST: BLOCK(8, BYTE), 
OUTBUF: VECTORC20, BYTEI; 


Set up output descriptor. 
OUT_DESCCDSC$W_LENGTH] = 19; 
OUT_DESCCDSCSA_POINTER) = OUTBUF(1); 
: Get current radix. 


if; PBGSGB_VERB EQL DBGSK_EXAMINE_VERB 


BEGIN 
RADIX = .DBG$GL_CMND_RADIX; 
IF .RADIX EQL DBGSK_BEF AULT 


HEN 
RADIX = DBGSNGET_RADIX(); 
END 
ELSE 
RADIX = DBGSNGET_RADIX(); 
Decide on form of output based on radix mode. 


CASE RADIX FROM DBG$K_DEFAULT TO DBGSK_HEX OF 


Output the offset in octal. 
CDBG$K_OCTAL): 


————— 


a 9 
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vOe-000. 1e-38b-198e 13:97:20 EeauG. SRC}DBGPRINT BSo—1 (29) 
; 767 BEGIN 7 
3 ee iS 

$68 ah Set up control descriptor for octal output; call SYSSFAO. 
; CONTROL _DESCCDSC$W_LENGTH] = %CHARCOUNT (*!0L"): 

; eee ne CONTROL DESE DSC$A-POINTER] = UPLIT BYTE (*'OL'S; 

: 2669 774 IF NOT SYSS$FAO (CONTROL_DESC, FAO_LENGTH, OUT_DESC, .VALUE) 
; gro a MEN DRG ERROR( "DBGPRINT\DBGSPRINT_OFFSET, SYSSFAO failed’); 
+ 267 77 

; oi 58 ! Suppress leading zeroes. 

: 67? reo i = 1: 

; 679 78 WHILE’ .OUTBUFC.1) EQL %C'O" DO 

; 2678 783 4 BEGIN, ee 

: $8h0 ores 4 IF .i GTR .FAO_LENGTH THEN EXITLOOP; 

: S683 5787 — 

; OUT_DESCCDSC$W_LENGTH] = .FAO_LENGTH = .I ¢ 1; 

; oss $789 SUT DESCEDSCSACPDINTERS = QUTBUFC.1); 

es 

: eae a4 Output the value. 

: zo8e 3794 if .OUT_DESCCDSC$W_LENGTH] GTR 0 

: seat $798 3 DBGSPRINT (UPLIT BYTE (ZASCIC '+!AS"), OUT_DESC); 

; 692 3797 

ee ae ve: 

: en spot ; Output the offset in hexadecimal. 

eR toca He 

3 2699 804 BEGIN 

3 BBs 

; 70 3807 Set up control descriptor for hex output; call SYSSFAO. 

; $704 809 CONTROL _DESCCDSCSW_LENGTH] = ZCHARCOUNT (*!XL"D; 

: SA-POINTER] = UPLIT BYTE (*'XL'S; 

; ee Ht TP NOT SYSSEAO (CONTROL, DESC. FAO_LENGTH, OUT_DESC, .VALUE) 
: 2708 2818 HEN SpBG_ERROR(*DBGPRINT\DBGSPRINT_OFFSET, SYSS$FAO failed’); 
: at HE | Suppress leading zeroes. 

é is 1; 

; iis B19 UHILE .OUTBUFL.1) EQL %C°0" DO 

: 2716 

> 2715 8 0 4 BEGIN, nee 

; 19 : : 4 IF .i GTR .FAO_LENGTH THEN EXITLOOP; 

3; 2718 823 3 END; 
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; Routine Size: 304 bytes, 


50 01 
1C = =AE 04 AE42 
18 af 
7 
—- @ 
C9 OA 
6 
0 AE 0 
4 AE CE A 
046 AC 
1C = AE 
ge AE 
2 a 
64 04 
OE 23 
D1 A 
01 
00028362 = BF 
65 03 
52 01 
30 04 AE42 
09 
52 
10 00 
FO 
39 04 AE42 
07 
52 
04 AE42 30 
50 6E 
50 52 
50 01 
1C =AE 04 AE42 
18 AE 
0B 
18 AE 
FB SOAS 
EFCD CF 02 
Routine Base: DBGSCODE + 
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DESC 
Gute ti OuT_DESC+4 


OUT DESC 
P.AEO 
Se CONTROL DESC 
P. AEP, CONTROL -DESC+4 
VALUE 
OUT_DESC 
FAO LENGTH 
CONTROL DESC 
#4, SYSSFAO 
0, 11$ 


#164706 

43, LIBSSIGNAL 
oufBUF CII, #48 
13$ 


I 

#0, #16, FAO_LENGTH, I 
OUTBUFLIJ, #57 

14$ 


I 
Pt OUTBUFCI) 


FAO. LENGTH, RO 
hy sc 
oufeurti3, "abi “DESC +4 
OUT_DESC 
16$ 
OUT_DESC 


#2, DBGSPRINT 
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GLOBAL ROUTINE DBGSPRINT_SET_VALUE(VALPTR): NOVALUE = 
i FUNCTION 


Given value descriptor for Set data, print its value. 


i INPUTS 


VALPTR = Pointer to value descriptor. 


one. 


BEGIN 


MAP 
VALPTR: REF DBGSVALDESC; 


LOCAL 
COMMA_FLAG, 
MMY 


U 
PARENT TYPE: REF RSTSENTR 
PRINT_FLAG, 


PRINT_VALPTR: REF DBGS$VAL 
yee: REF BITVECTORCI, 


PARENT_TYPE = DBGSGET_SET_TY 
PRINT_VALPTR = DEGSAARE _SREL 
PRINT Bhat ete R-LANG 


D 
pee “VALPTRCDBG$L_DHDR- TYPE 
If -PRINT_VALPTRCDBG$B_BHOR_ 


Y, 


DESC, 


(. 


! Pointer to value descriptor 


Flag to indicate it is time to print , 

Subrange typeid in Set 

Set parent typeid 

Flag to indicate it is time to print 
the set value 

Pointer to Print value descriptor 

A bit vector of set value 

The Length of the set in bits 


VALPTRCDBGS$L_DHDR_TYPEID], DUMMY); 
DESC (D G$k_VACUE_DESC, 4); 
VALPT DBGSB DHDR -LANG); 
PARENT TTeEERS TSB KIND] 
~PARENT_TYP BECRSTSB ‘code? 
PAREN 


J #., TYPE; 
ODE) EQL RSTS$K _TYPE ATOMIC 


BEGIN 
baGSSTA TYP_ATOMIC(.PARENT_TYPE, PRINT VALPTRCDBGSB_ VALUE_DTYPE], SIZE); 
~PRIRT _VALPTRLDBGSB_ VALOE _DTYPE) EQC DST$K_B 


N 
PRINT_VALPTRCDBG$B_VALUE_DTYPE] = DSC$K_DTYPE_TF; 
PRINT_VALPTRCDBGSB_VALUE CLASS] = DSCSK_CLASS_S; 


ELSE 


N 
T_VALPTREDBG$B_VALUE 
TEVALPTR DBG$B~ VALUE — 


monv vw 


EG] 
RIN 
RIN 
1ZE 
ND; 


PRINT _VALPTRCDBG$W_VALUE_LENG 
PRINT VALPTRUDBGSL_ VALUE SFO POIN 
DBGSP PRINT(UPLIT BYT ‘ 
SETVALUE = .VALPTRCDBGSL VALU 


—CLA 
_DTY 


TH) = 

TER] = 
‘ey 
E_PO 


$$] 
PEJ 


“ou 
So 
eee 


SIZE / 8; 
“PRINT_VALPTRLDBG$A_VALUE_ADDRESS); 
INTER); 


Pa 94 
9° (30) 


r-—— ---- - = - _ —_——— 


10 
DBGPRINT ibese -1984 27:4 AX-11 Bliss-32 V4.0-742 Page 95 
| oper 12-8 8-1 obe te tn DEBUS. SRC IDBGPRINT.B32¢1 . (30) 
; B15 919 PRINT_FLAG = TRUE; 

; 1 920 COMMA"FLAG = FALSE; 

; 281 921 INCR T FROM 0 TO (.VALPTRCDBG$W_VALUE_LENGTH] * 8 - 1) DO 

; 2818 9 § BEGIN 

; $38 w IF .SETVALUEC.1) 

3 0 924 THEN 

3; 2821 925 4 BEGIN 

; 28 § 9 § 4 IF .PRINT_FLAG 

3; 28 io 4 THEN 

3; 2824 928 5 BEGIN 

: 2825 929 5 IF .COMMA_FLAG 

; 28 § 930 2 

3 . 5 ; 1 2 DBGSPRINT(UPLIT BYTEC(ZASCIC *, ')); 

3 899 9 : 5 COMMA_FLAG = TRUE; 

: 2830 934 5 PRINT VALPTRCDBG$L_VALUE_VALUEO) = .I; 

; 2831 935 5 DBGSPRINT_VALUE(.PRINT_VALPTR, DBGSK_DEFAULT, FALSE, FALSE); 
; soe 2936 «5 IF .1 EQL (, VALPTRLDBGSW_VALUE_LENGTA * 8 = 1) THEN EXITLOOP; 
3 HY raat 5 IF .SETVALUEC.1+1) 

; 34 938 5 THEN 

3; 2835 $820 6 BEGIN 

: 2836 940 6 IF (.1 + 1) EQL ( VALPTREDBGSY_VALUE LENGTH] * 8 = 1) OR 
3; 2837 soe; 7 (NOT .SETVALUEL.I + 2)) 

3; 2838 4 6 N 

3; 2839 943 6 DBGSPRINT(UPLIT BYTE(ZASCIC *, ")) 

3; 2840 944 6 

3 2841 945 6 LSE 

3 sacg 2946 6 DBGSPRINTCUPLIT BYTE(ZASCIC *..°)); 

3; 284 2947 6 

3 2844 948 6 PRINT_FLAG = FALSE; 

3; 2845 949 5 END; 

3 2846 950 5 

3 2847 2951 5 END 

3 964 $226 5 

3; 2849 2953 4 ELSE 

; 2850 2954 «5 BEG 

; 2851 2955 6 IF .J EQL (.VALPTRCDBG$W_VALUE_LENGTH] * 8 = 1) 

: $o26 2956 5 THEN 

3; 285 seen 6 BEGIN 

3 2854 958 6 PRINT_VALPTRCDBG$L_VALUE_VALUEO] = .I; 

3; 2855 2959 6 DBGSPRINT_VALUE(.PRINT_VALPTR, DBGSK_DEFAULT, FALSE, FALSE); 
3; 2856 44 6 EXITLOOP; 

: 2857 961 § END; 

3 B26 96 é 

3 2859 96 IF NOT .SETVALUEC.I1 + 1) 

3; 2860 964 5 THEN 

3; 2861 965 6 BEGIN 

3 Bee 966 6 PRINT_VALPTRCDBG$L_VALUE_VALUEO) = .I; 

: 286 967 6 DBGSPRINT_VALUE(.PRINT_VALPTR, DBGS$K_DEFAULT, FALSE, FALSE); 
3 2864 968 3 PRINT_FLAG = TRUE; 

; 2865 969 3 

3; 2866 970 5 

3 9th 971 & END; 

: 8 972 4 

3 59) 97 END; 

: 0 974 

; 2871 975 END; 


<9 
ow 
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~— 
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DBGSPRINT(UPLIT BYTE(ZASCIC 'J')); 
RETURN 0; 


an 


875 END; 
58 01 O00DBB 
20 2C 02 O00DBD 
sp © itt 
E 2— 0 ODC 
D 01 O0DC6 
OFFC 00000 
5B 00000000G 00 9€ 00002 
5A 00000000" EF 4 00009 
5E 08 C2 00010 
5E 0D 00013 
54 04 aC DO 00015 
08 aA& DD 00019 
000000006 00 02 FB OO0IC 
55 50 00 00023 
04 DD 00026 
7€ 7A =8F 9A 00028 
000000006 00 9¢ FB Ono es 
53 50 00 00033 
03 = A3 03 A& 90 00036 
07 a 14 AS 90 83078 
06 A 18 AS 90 00040 
08 A3 55 DO 00045 
52 14 A 9E 00049 
02 06 A3 91 00040 
20 12 00051 
04 A oF set 
16 AS 9F 00056 
55 DD 00059 
000000006 00 st: fe $2) 
9E =soaBF 02 Ae 9 06 
04 is 006 
0 A2 ss 90 00069 
0 A2 1 90 S280 
07 11 00071 
02 Ae B4 00073 
04 «AE 09 0076 
50 046 =#OA C7 QOO7A 
6 80 007F 
18 «OA 20 =A E Baas 
5A DD 000 
EF3E CF 01 fe 089 
56 18 A4& DO OO0BE 


F 10 
16-Se 
14-Se 


1$: 
23: 
3$: 


“19 
P19 


a Bf: 


4 AX-11 Ot igsnze V4.0-742 Page %6 
4 DEBUG. SRCJDBGPRINT.B32;1 (30) 
DBGSPLIT,NOWRT, SHR, PIC,0 
<1>\O\ : 
<2>\, \ Py 
<2>\, \ ; 
<2>\..\ ; 
<1>V\I\ 3 
DBGSCODE,NOWRT, SHR, PIC,0 
DBGSPRINT_SET_VALUE, Save R2,R3,R4,R5,R6.- ; 2862 
R7,R8,R . : 
DBGSPRINT_VALUE, R11 : 
P.AET, R10 ; 
#8, SP : 
SP : 2891 
VALPTR, R4 ; 
8(R4) : 
#2, DBGSGET_SET_TYPEID ; 
RO, PARENT_TYPE ; 
# : 2892 
#122, -(SP) 3 
#2, DBGSMAKE_SKELETON_DESC : 
0, PRINT VACPTR ; 
3(R4), 3(PRINT_VALPTR) : 2893 
O(PARENT_TYPEY, 7(PRINT_VALPTR) ; 2894 
4(PARENT-TYPE), 6(PRINT-VALPTR) : 2895 
PARENT TYPE, 8(PRINT_VALPTR) ; 2896 
20(PRINT_VALPTR), R2 : 2901. 
G(PRINT_VALPTR), #2 : 2897 
size : 2900 
(PRINT _VALPTR) ; 
PARENT TYP ; 
#3, DBGSSTA_TYP_ATOMIC : 
e(R2), #158 ; 2901 
#40, 2(R2) : 2903 
#1, 3(R2) : 2905 
3 ; 2897 
(R2) : 2911 
#32, SIZE ; e912 
aay ti 
32(PRINT_VALPTR), 24(PRINT_VALPTR) : 2916 
R10 : 2917 
#1, DBGSPRINT ; 
24(R4), SETVALUE : 2918 
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PUI" OOWH BS OVIWOM OS 


WWOPoRoPononon 2 2] 2 = O00 


) 
0, R9 


PRINT _VALPTR 

#4, DBGSPRINT_VALUE 
20(R4), RO 

R ° 

I, RO 

R5, (SETVALUE), 12$ 
R5, RO 


2(R2), RO 

RO, (SETVALUE), 7$ 
P.AEV 

P.AEW 

#1, DBGSPRINT 
PRINT FLAG 

20(R4), RO 

#8, RO 

RO 

1, RO 

1, 32(PRINT_VALPTR) 
(SP) 

# 

PRINT_VALPTR 

, DBGSPRINT_VALUE 
RS, (SETVALUE), 12$ 
1, 32(PRINT_VALPTR) 
(SP) 
#1 
PRINT_VALPTR 

#4, DBGSPRINT_VALUE 
#1, PRINT FLAG 

R9, I, 13 

14$ 

4$ 


P AEX 
#1, DBGSPRINT 


AX=11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGPRINT.B32;1 
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(30) 


Page 


DBGSCODE + 1180 


315 bytes, Routine Base: 


DBGPRINT 
; Routine Size: 
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10 
GPRINT bese 1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 99 
voe~000 14-Sep-19 4 95:90:48 DEBUG. SRC IDBGPRINT .B32s1 ’ (31) 
; or? 380 ! GLOBAL ROUTINE DBGSPRINT_SET_LANGUAGE (LANGUAGE) : NOVALUE = 
; 2879 $8 1 ! FUNCTION 
; 2880 9 1} This routine is called from the set language command. It sets two 
; 2881 984 1! lobal flags to indicate whether the Lenquage has the array or record 
; 288 +H ,} ype of data. When we do the symbolization, we symbolize to array 
; 288 9 § ,: subscript or record component by the current Language setting. If the 
>; 2884 987 1! current language does not have array or record then we'll symbolize 
>; 2885 Sone 1! to datatoffset. For example, if we — a variable declared in 
>; 2886 989 1! fortran, but the Language set to macro, then we'll symbolize the 
; 2887 990 1! variable to datatoffset instead to data(i,j). 
; 2888 7) 7} 
; 2889 336 1 ! INPUTS 
; 2890 995 1! LANGUAGE = The current Language setting. 
; 94 9946 1! 
; 344 995 1 ! OUTPUTS 
3; 289 2996 1! None. 
3 2894 2997 1! 
3; 2895 2998 «1 
; 2896 999 2 BEGIN 
; 2897 000 2 
; 2898 3001 LOCAL 
; 2899 300 PTR: REF VECTORC,LONG); 
; 2900 300 
; 2901 3004 
; 290 3005 § ! Load in Lengyege, Sndegendent print information table. The rest of 
; 290 006 ! the information is set by the language code in the primary/value. 
; 007 2 ! descritpor. But, for the subscripting or record component is printed 
; 3444 S008 § by the current language setting. 
: 2907 3010 2 PTR = .LANGUAGE PRINT_TABLE_PTRSC.LANGUAGE] + TABLEBASE; 
; 2908 3011 2 DBGS$GL_ARRSUB_FCAG = [PTR(37; 
3; 2909 e018 2 DBGSGL_RECCMP_FLAG = .PTR(4); 
3; 2910 3013 2 DBGSGL_SIGN_FCAG = .PTRCS); 
3; 2911 3014 2 RETURN 0; 
: 2912 3015 1 3 
0000 00000 ENTRY DBGSPRINT_SET_LANGUAGE, Save nothing ; 2980 
50 04 aC 00 00002 MOVL LANGUAGE, RO ; 3010 
51 444 EF 2 ppone MOV TABLE R1 3 
50 51 00000000'EF 40 : 000D ADDL3 LANGUAGE_PRINT_TABLE PTRSCROJ, R1, PTR : 
00000000° EF OC AO 7D 00016 MOVQ (PTR), DBG$GC_ARRSOB_FLAG : 3011 
00000000° EF 14 AO DO QOOIE MOVL 20(PTR), DBGSGL_SIGN_FCAG : 3013 
04 00026 RET : 3015 


Routine Size: 59 bytes, Routine Base: DBGSCODE + 12EB 


2913 3016 1 


GPRINT 1b-Se -1984 AX-11 Bliss-32 V4.0-742 
sae B00 14- gen-1984 95:49 DEBUG.SR RCIDBGPRINT 83251 
$ aE gi” } GLOBAL ROUTINE DBGSPRINT_SYMBOL_NAME(SYMID) : NOVALUE = 
: 319 $19 1} FUNCTION 
3; 2918 020 1! This routine prints the syebot pene yi theut aranene Guat TPE nt ton 
3; 2919 O21 1! of a symbol specified by a SYMID is zero, nothing 
: ; » 5 § : } is printed. he printing is an ‘" Sites DBGSPRINT. 

: 29 é 024 1! INPUTS 

; ; ? : 5 : SYMID = The SYMID of the symbol whose name is to be printed. 
: 2925 0 5 1} ouTPUTS 

3; 29 $ 028 1! NONE 

3; 29 029 1! 

: 2928 030 1 

3 2929 031 BEGIN 

3; 2950 0 § 

: 2931 303 LOCAL 

3 3474 bee NAMEPTR; ! Pointer to ASCIC symbol name 
: 2934 036 

3 2935 037 

3 a S086 If the SYMID is non-zero, print the corresponding symbol name. 

: 2938 3040 if .SYMID EQL 0 THEN RETURN; 

> 2939 041 2 DBGS$STA_SYMNAME(.SYMID,NAMEPTR); 

3; 2940 $008 § DBGSPRIATCUPLIT BYTE (ZASCIC "'taC'), .NAMEPTR); 

> 2941 04 RETURN; 

3 2942 3044 2 

3 2943 3045 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 03 OODC8 P.AEY: .ASCII <3>\!AC\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 00000 .ENTRY DBGSPRINT_SYMBOL_NAME, Save nothing 
SE 04 C2 0000 SUBL2 #4, SP 
04 AC D5 0000 TSTL  SYMID 
19 1 9008 BEQL = «1S 
SE DD OOO0A PUSHL 
04 AC DD 0000C PUSHL SYMID 
000000006 00 02 FB O000F CALLS #2, DBGSSTA_SYMNAME 
6E 4 0016 PUSHL NAMEPTR 
00000000' FF F 00018 PUSHAB P.AEY 
EEG? CF 2 FB OO1E CALLS #2, DBGSPRINT 
04 00023 1$: RET 


; Routine Size: 36 bytes, Routine Base: DBGSCODE + 1312 


— 
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3; Routine Size: 


2 


1bedepe19 4 9g: erth Ax-11 BL Ligs $2 4 


-32 vV4.0-7 
14-Sep-1984 1 DEBUG. SRC JDBGP 3 


RINT.B 


peg ! GLOBAL ROUTINE DBGSPRINT_SYMBOL_PATHNAME(SYMID) : NOVALUE = 
Boe 1 ! FUNCTION 
49 1! This routine prints the oyepe) name sp enueion ‘ore qualification 
050 1! of a symbol spec {fled by a SYMID MID is zero, gratheng 
§2) : is printed. The pr inting. is aehleces by FB ty DBGSPRINT. 
088 1 ! INPUTS 
054 1! SYMID = The SYMID of the symbol whose name and pathname qual fication 
055 1! is to be printed. 
p29 1! 
057 1 ! OUTPUTS 
056 1! NONE 
059 1! 
060 1 
061 BEGIN 
06 
06 CAL 
064 PATHNAME DESC: REF PTHSPATHNAME,! Pointer to Pathname Descr 
Re? SYMBOL _NAME: REF VECTORC,BYTEJ; | Pointer to counted ASCII string 
067 
3068 ' Get a Pathname oe 4, t ped for the SYMID syebet from SYMPATHNAME, convert 
069 ! that to a Counted ASCII string through NPATHDESC_TO_CS, and then print 
Sony ; that string and return. 
$078 DBGSSTA sleet tance ¢ -SYMID, PATHNAME_DESC); 
07 DBGSNPATHDESC_TO_CS (.PATHNAME DESC SYMBOL NAME) ; 
3074 DBGSPRINT COPEL BYTE (ZASCIC "!AC'S, . SYMBOL _NAME) ; 
3075 2 RETURN; 
3076 2 
3077 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 03 OODCC P.AEZ: .ASCII <3>\!AC\ 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0078 4 -ENTRY ye aa tit eerste Save nothing 
5€ 8 ¢ 00 SUBL2 @# 
E pd 0000 PUSHL 
04 AC DD 00007 PUSHL MID 
000000006 00 02 FB QO00A CALLS DBGSSTA_SYMPATHNAME 
04 AE OF Bota PUSHAB SYMBOL_NAM _. 
04 AE OD 00014 PUSHL PATHNAME DESC 
000000006 00 02 FB 00017 CALLS #2, "DOGEAPATHOESC. TO_CS 
04 AE DD QOOTE PUSHL syne. AME 
00000000° Fe 9F 00021 PUSHAB 
EEIA CF 2 FB 00027 CALLS ae SEGSPRINT 
04 0002C RET 


45 bytes, Routine Base: DBGSCODE + 1336 


P 101 
29 39} 


oREPR NT efor ta 02:27:48 VaNetT Blisg=32. v4 0-742, Page 192 


- orn iat 1-30 5-19 4 t 98: 1S AX-11 Ot i gsezg vV4.0-7 


a 14-Sep-1984 DEBUG. SRC DBGPRINT. B54 1 
; 44 LOBAL ROUTINE DBGSSET_MAX_LINE_WIDTH(LINE_WIDTH): NOVALUE = 
; 2980 ' FUNCTION 
: 2981 ‘ This routine sets the maximum width of DEBUG output Lines so that 
; 298 output Lines that exceed this width get folded at the maximum width. 
3; 298 The maximum width cannot be set to a value less than 40 or greater 
: 2984 than 131 characters. The width setting is accomplished by setting 
3 eee the new width into the OWN variable MAX_PBSIZE. 
; 298 ' INPUTS 
3 +4 LINE_WIDTH = The new maximum print Line width to be set. 
3; 2990 !' OUTPUTS 
; 2991 ‘ NONE 
3; 299 
: 299 
3: 2994 BEGIN 
3; 2995 
3 ba | Set the new maximum Line width and make sure it is within range. 
3; 35000 MAX opestis = gt it 
3 3001 IF [MAX_PBSIZE LS wr A ThEN MAX_PBSIZE = 40; 
; 00¢ IF .MAX ~pBs 1ZE GTR 131 THEN MAR_PBSIZE = 131; 
z 308 RETURN; ~ 
; 3004 
3; 3005 END; 
0004 00000 -ENTRY DBGSSET_MAX_LINE_WIDTH, Save R2 
52 00000000" EF 9E 00002 MOVAB MAX_PBSTZE, 
62 04 AC 00 00009 MOVL LINE WIDTH, mA _PBSIZE 
28 62 D1 0000D CMPL MAX_PBSIZE, #407 
03 18 00010 BGEQ 
62 28 00 Bais MOVL #40, MAX resize 
00000083 =s BF 62 Di 00015 1$: CMPL MAX “PBSIZE, #131 
04 15 OQ001C BLEQ 
62 83 8F 9A BRO NS MOVZBL #131, MAX_PBSIZE 
04 00022 2$: RET 


; Routine Size: 35 bytes, Routine Base: DBGSCODE + 1363 
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N 10 
16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 P 1 
10-3¢5-198e 93:95: 3 DEBUG. SRCIDBGPRINT 83251 ae ) 


GLOBAL ROUTINE DBGSWRITE_LOG_FILE(LENGTH, BUFFER): NOVALUE = 


FUNCTION 

This routine writes an already formatted Line of output to the DEBUG 
log file. It accepts the Length and address of the output Line as 
input and outputs that buffer to the log file. it then returns. It 
is assumed that the gel lor has inserted the leading "'!"’ in the out- 
put Line (if appropriate) before calling this routine. 


i 
i 
i 
i 
i 
i 
' INPUTS 
H LENGTH = The number of bytes of text to be output to the log file 
from the BUFFER Location 
BUFFER = The address of the buffer to be output to the log file. 
i OUTPUTS 
NONE 
BEGIN 
LOCAL 
AB_PTR: REF $FAB_DECL 
MSG-DESC: BLOCK(8-BYTES, 
STATUS; 


Pointer to the log file FAB 

String descriptor pointing to file 
name--used in error messages 

Status code returned by RMS 


! If output Logging is not active, return immediately without writing 
anything to the log file. 


if NOT .DBGSGB_DEF_OUTCOUT_LOG] THEN RETURN; 


Output the buffer to the log file and check the status. Then return. 
DBGSGL_LOGRABLRABSL_RBF) = .BUFFER; 


DBG$GL_LOGRABLRABSW_RSZ] = .LENGTH; 
STATUS = SPUT(RAB = DBGSGL_LOGRAB); 


If we got a record stream active error, wait for the current 1/0 on 
the file to finish and then try the 1/0 again. 
STATUS EQL RMS$_RSA 


BEGIN 
SWAIT(RAB = DBGS$GL_LOGRAB); 
oo = SPUT(RAB = DBGS$GL_LOGRAB) ; 


! If the 1/0 operation failed, signal the error. The error message 
: will include the file name and the STS and STV status values. 


if NOT .STATUS 


ze | 


_——————— 


f 


11 
DBGPRINT 18. =Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 105 
vo4-0 ox ee- 1 ope 95: 9552 DEBUG. SRC IDBGPRINT .B32s1 ge 495 
: 3064 163 THEN 
: 3065 164 BEGIN 
: 066 165 MSG_DESCEDSCSB_CLASS] = DSCSK_CLASS_S; 
: 306 166 MSG_DESCLDSC$B-DTYPE] = DSCSk DTVPE LT: 
; 3068 16 FAB-PTR = .DBGSGL_LOGRABLRABSC_FABJ; 
: 3069 168 IF -DBGSGL_LOG_BUF NEQ 0 
; 3070 198 THEN 
: 3071 170 4 BEGIN 
: 307 171 4 MSG_DESCEDSC$W_LENGTH] = ,FAB_PTRCFABSB_FNS); 
: 307 1% 4 MSG_DESCLDSCSA_POINTER] = .FAB_PTRLFAB ec _FNAD; 
: 3074 173 4 END 
; 35075 174 & 
: 3076 175 3 
: 3077 176 4 BEGIN 
: 3078 177 & MSG_DESCEDSC$W_LENGTH] = .FAB_PTRCFABS$B_DNS);: 
; 3079 178 4 MSG_DESCLDSCSA_POINTER] = .FAB_PTRLFABSC_DNA); 
: 3080 179 3 END; 
: 3081 3180 
: 308 181 SIGNAL (SHRS$_WRITEERR + DBG_FAC_CODE, 1, MSG_D 
; 3083 318¢ 3 .DBGSGL_LOGRABLRABSL. ste" writia _LOGRABCRABSL_STV]); 
; 3085 3184 § END; 
: 3086 3185 
: 3087 3186 2 
; 3088 3187 2 ' Everything worked fine--return to the caller. 
> 3089 3188 2 i 
: 3090 3189 : RETURN; 
: 3091 3190 
: 3191 1 END; 
.EXTRN SYSSPUT, SYSSWAIT 
001¢ 00000 ENTRY DBGSURITE LOG_FILE, Save R2,R3,R4 : 
54 000000006 00 9€ 00002 MOVAB SY ; 
53 000000006 00 H 00009 MOVAB DBOSGL _LOGRAB, R3 : 
SE 08 C2 00010 SUBL2 #8, SP” : 
68 000000006 00 €9 00013 BLBC  $DBGSGB_DEF_OUT, 4$ : 3138 
28 OA 08 AC DO OOO1A MOVL BUFFER? SBtSeL. *LOGRAB+40 : 3143) 
22. AB 04 AC BO OO01F MOVW LENGTH, DBGSGL~LOGRAB+34 : 3144 
53 DD 00024 PUSHL R : 3145 
64 07 FB 0026 CALLS a. SYSSPUT ; 
52 29 D 00 9 MOVL F 
000182DA BF D1 CMPL BOATS. W 9034 > 3151 
11 12 000 BNEQ =s:«1$ F 
53 DD 000 PUSHL R3 > 3154 
000000006 00 01 FB 00037 CALLS #1, SYSSWAIT : | 
3 pd 000 PUSHL 3 > 3155 
64 1 FB 004 CALLS #1, SYSS$PUT 
52 9 DO 0004 MOVL RO. STATUS : 
3¢ EB 00046 1$: BLBS STATUS, is > 3162 
02 ar 010E 8F BO 00049 MOVW #270, MSG > : 3166 
5 C AS DO 0004F MOVL  DBG$6L LOGRAB YS FAB_PTR : 3167 
000000006 00 p 0053 st DBGSGL~ “tog _BUF : 3168 
6E 34 nD 98 00058 MOVZBW Scrap. PTR), MSG_DESC > 3171 


Oo 
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DBGPRINT 16-Sep p= 1984 02:27:48 AX-11 Bliss-32 V4.0-742 Page 106 
v04=0 14-Sep-19 17:40 DEBUG. SRCJDBGPRINT.B32;1 (35) 
04 AE 2c AO 00 0005F MOVL 44(FAB_PTR), MSG_DESC+4 ; 3172 
09 11 00064 BRB 3$ : 3168 
6E 35 AO 98 0066 2$: MOVZBW aREAB. BTR). MSG_DESC + 3177 
04 AE 0 A p OO6A OVL 48(F AB" PTR) MSG_ DESC+4 ; 3178 
7E 08 ad 70 006 3$: OVO  DBGSGL~LOGRAB+B, ~-(SP) : 3182 
08 AE OF 90 8 PUSHAB mse DESC. : 3181 

01 DD 07% PUSHL #1 ; 

00021000 8F DD 0007 PUSHL #135376 : 

000000006 00 0S FB O07E CALLS #5, LIBSSIGNAL ; 
04 00085 4$: RET ; 3191 


; Routine Size: 134 bytes, Routine Base: DBGSCODE + 1386 
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1e=8ep-1984 93:97:60 EDEaUG. SRCSDBGPRINT OSes 19° 38) 


ROUTINE DBGSWRITE_OUTPUT(LENGTH, BUFFER): NOVALUE = 


FUNCTION 
This routine writes a text buffer containing an ASCII character 
string to file DBGSOUTPUT (normally the user's terminal) and to 
the current log file (if one exists). The write to DBGSOUTPUT 
is done using RMS, but is st (pped entirely if the user has sup- 
pressed it with a SET OUTPUT NOTERMINAL command. 


i 
i 
i 
i 
i 
i 
; If there is a log file, the comment character ‘'!"’ is inserted in 

| front of the character string before the string is written out. 

; This is done by copying the string to a kempor ary log file buffer. 
} The output is then done by calling DBGSWRITE_LOG_FILE. 

! INPUTS 

: LENGTH = The length in bytes of the ASCII character string to be 
} output to DBGSOUTPUT and the log file. 

i] 

i 

i 

i 

i 


BUFFER = The address of the buffer containing the ASCII character 
string to be output to DBGSOUTPUT and the log file. 


OUTPUTS 
NONE 


BEGIN 


LOCA 


L 
LOG_BUFFER: VECTORC132,BYTE), reaper ery buffer for log file output 


' 
LOG_LENGTH, : Length of string in jog, File buffer 
MSG_DESC: BLOCK(8,BYTE), ! String descriptor pointing to file 
, name--used in error messages 
STATUS; ' RMS status code 


! If we are in Screen Mode, we direct the print output to the currently 
' active Screen Display instead of printing it through RMS in the normal 
! manner. 

DBGSGL_SCREEN_OUTPUT NEQ 0 


DBGSSCR_WRITE_LINE(.LENGTH, .BUFFER, .DBGSGL_SCREEN_OUTPUT) 


' 
i 
i 
: 
i. 
THEN 


! If the user wants output on DBGSOUTPUT (the normal situation unless 
' SET OUTPUT NOTERMINAL has been specified), set up and do the write. 
DBGSOUTPUT is normally defined to be the user's terminal. 
ELSE IF .DBGS$GB_DEF _OUTCOUT_TERM) 
THEN 
BEGIN 
Write the output buffer to DBGSOUTPUT. 
DBGS$GL_OUTPRABCRABSL_RBF] = .BUFFER; 
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Face =1984 02:27:4 AX-11 Bliss-32 V 
a aati 96: 7:4 DEBUG. SRCIDBGPRI 
GL_OUTPRABCRABSW RSt2 = LENGTH; 

US"= $PUT(RAB = BBGS$GL_OUTPRAB) ; 

' If we got a record stream active error, wait for the current I/0 
operation to finish and then retry the write. 


IF .STATUS EQL RMSS_RSA 
THEN 


BEGIN 
SWAIT(RAB = DBG$GL_OUTPRAB); 
STATUS = $PUT(RAB = DBGS$GL_OUTPRAB); 


' If we age ony other 1/0 error, signet an error message which includes 
the DBGSOUTPUT file name and the STS and STV status values. 


if NOT .STATUS 
THEN 


BEGIN 

MSG_DESCCDS N 
MSG DESCCDS I 
SIGNAL (SHRS$ WAT TEE 


. DBGS$GL_OUTPR 
END 


aon 


$W_LE 


T BYTEC(ZASCII '"DBGSOUTPUT"); 
_CODE, 1, D 
> .DBGSGL_OUTPRABLRABSL_STV)); 


END; ! End of DBGSOUTPUT code 


——* 


a LOG file is being written, write the output buffer to it, but 
th the comment character appended in front of it. 


DBGS$GB_DEF _OUTCOUT_LOG) 


! Put the comment character "'!"’ at the beginning of a temporary log 
! file buffer. Then copy the input string into the log file buffer 
! after the comment character. This causes all DEBUG output to Look 
' Like comments in the log file. 


LOG_BUFFERCO) = '!°; 
LOG-LENGTH = MIN(.LENGTH ¢# 1, 132); 
CHSMOVE(.LOG_LENGTH - 1, .BUFFER, LOG_BUFFERC1)); 


Write the output buffer to the log file. 
DBGSURITE_LOG_FILE(.LOG_LENGTH, LOG_BUFFER(O)); 


Everything worked fine--return to the caller. 
RETURN; 
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-PSECT 
ASCII 


»PSECT 


‘8 AX-11 Ot igang V4.0-742 
4 DEBUG. SRC JDBGPRINT.B32;1 


DBGSPLIT,NOWRT, SHR, 
\DBGSOUTPUT\ 


PIC,0 


DBGSCODE,NOWRT, SHR, PIC,0 


Save R2,R3,R4,R5,R6,R7,R8 
SYS$PUT, 

DBGS$GL_OUTPRAB, R7 
-140(SP 


DBGSGL_SCREEN_OUTPUT, RO 


RO 

LENGTH -(SP) 

a3. DBGSSCR_WRITE_LINE 
DBGSGB_DEF _OUT+1, 3$ 
BUFFER, DBGSGL_OUTPRAB+40 
LENGTH, DBGS$GL~OUTPRAB+34 
#1, SYS$PUT 

RO, STATUS 

STATUS, #99034 

, SYSSWAIT 

SYS$PUT 

STAT $ 

MSG_DESC 

, MSG_DESC+4 

t -QUTPRABS8, -(SP) 


RO, aBUFFER, LOG_BUFFER*1 
LOG_BUFFER 


LOG-LENGTH 
#2, DBGSWRITE_LOG_FILE 
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GPRINT 18-§ 1984 02:27:4 AX-11 Bliss-32 v4.0-742 p 1 
mire 1e=ee= 1 8he 93:95:68 == HORGuG.Sacioacer nt esos age 119 
04 00088 5$: RET ; 3307. 
; Routine Size: 185 bytes, Routine Base: DBGSCODE + 140C 
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NAMEPTR = A pointer to the formatted array subscript value is returned 
to the NAMEPTR parameter. 


The routine returns the value TRUE if the formatting was successful and 
it returns FALSE if the value was truncated when formatted. 


16-Sep-1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 111 DBI 
14-Sep-19 4 95:90: DEBUG. SRCIDBGPRINT .B325 1 . (47) vO 

ROUTINE GET_SUBSCRIPT_VALUE(NAME, STRING, ARGUMENTS) = 

i FUNCTION 

; This routine takes an array subscript value, formats that value into 

: an output obr ing vaice FAO, and returns a pointer to the formatted 

string to the NAMEPTR parameter. 

i INPUTS 

: NAMEPTR = The address of a longword location to receive a pointer 

to the formatted array subscript value. 

STRING = The address of an ASCIC FAO control string. 

ARGUMENTS = Array subscript value. 

OUTPUTS 

i 

i 

} 


BEGIN 
p 

NAME: REF VECTORC,LONG) ! Pointer to ASCIC string 

STRING: REF VECTORL,BYTE); i Address of FAO control string 
LITERAL ; 

SUBBUF = 20; ! Buffer Length in bytes 
LOCAL 

INP_DESC: VECTORC2,LONG), String descriptor for input buffer 

LENGTH: WORD Length of SYSS$SFAOL output string 


NAMEPTR: REF VECTORC, BYTE), 


Pointer to ASCIC string 
OUT_DESC: VECTORC2,LONG], 
STATUS; 


String descriptor for output buffer 
Return status from FAO 


iNP_DESC 9} : gSTRINGEOI: 
INP“DESCC1) = STRINGLIJ; 
OUT~DESC 0} = SUBBUF ; 
OUT“DESCL1] = DBG$GET_MEMORY(SUBBUF / 4); 
STATUS = SYSSFAOL(INP-DESC, LENGTH, OUT _DESC, ARGUMENTS); 
LF STATUS EQL SS$_ACTVIO OR .STATUS EQC SS$_BADPARAM 
BEGIN 
DBGSREL_MEMORY(.OUT_DESCL1)); 
SIGNAL (7STATUS) ; 


NAMEPTR = 0 poh aga PPS Ppa + 5) 
CHSMOVE(.LENGTH, .OUT_DESCC1), NAMEPTRE 


Routine Size: 138 bytes, Routine Base: DBGSCODE + 14C5 
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DBGPRINT rhage $1984 02:27:4 AX-11 Bliss-32 V4.0-742 Page 112 | 08 
V 600 ae 05:90:48 DEBUG. Bae DBGPRINT.B32;1 9° (375 v0 
68 65 NAMEPTRLO) = : 
69 66 DBG REL “MEMORY (. Oot "besctt2): ; 
70 a NAME =~. NAMEPTR: ; 
71 68 iF “STATUS EQL SS$$_NORMAL THEN RETURN FALSE; ; 
7 6 RETURN TRUE; ; 
7 70 ; 
7% 71 END; : 
O1FC 00000 GET_SUBSCRIPT =VALUE: ; 
WORD™ R2.R3 RG RS R6,R7,RB : 3308 ; 
58 000000006 00 9€ 00002 MOVA He $REL “MEMORY, RB : | : 
SE 14 § 00009 SUBL2 #20, SP” : ; 
OC AE 08 BC 9A 0000C MOVZBL asTRING INP_D : 3351 ; 
10 AE 08 Ac 07 ¢1 00011 ADDL TRING INP. SESC es ; 335¢ ; 
04 AE 14 00 00017 MOVL #26, out NDESC : 3353) F 
05 DD 0001B PUSHL : 3354 ; 
000000006 00 01 FB 0001D CALLS #1, pecscet MEMORY : ; 
08 AE 0 pO 00024 MOVL RO. OUT DEST+4 : : 
0c AC 9F 00028 PUSHAB ARGUMENT : 3355 ; 
08 AE 9F 00028 PUSHAB OUT_DESC ; ; 
08 AE OF Bobet PUSHAB LENGTH : : 
18 AE 9F 00031 PUSHAB INP_DES : ; 
000000006 00 04 FB 00034 CALLS #4, SYSS$FAOL ; ; 
57 50 DO 00038 MOVL 0; STATU ; : 
0c 57 D1 0003E CMPL = STATUS, #12 + 3356 : 
05 13 00041 BEQL F 
14 57 Di 00043 CMPL = STATUS, #20 ; 
OF 12 00046 BNEQ  2$ ; 
08 AE DD 00048 1$: PUSHL  OUT_DESC+4 : 3359 
68 01 FB 00048 CALLS #1, DBGSREL_MEMORY : 
57 DD O004E PUSHL : 3360. 
000000006 00 01 FB 00050 CALLS #1, L 1B$S1GNAL : | 
50 6€ 3C 00057 2s: MOVZWL LENGTH, RO : 3363 
50 05 CO 0005A ADDL2.  # F | 
7E 50 04 C7 0005D DIVL us, ; 
000000006 00 gi FB 90061 CALLS ; Daéscet. PTEMPMEM : 
56 0 DO 00068 MOVL Rd AMEPT ; 
01 Ab 08 BE 6E 8 00068 MOVC3 LENGTH, BOUT DESC+4, 1(NAMEPTR) : 3364 
66 6€ 90 00071 MOVB LENGTH oS NAMEPT TR) : 3365. 
08 AE DD 90074 PUSHL OUT_D : 3366 
68 1 FB 00077 CALLS # ~DBGSREL MEMORY ; 
04 BC 6 DO OO07A MOVL NAMEPTR, @NAME : 3367 
01 57 D1 OO007E CMPL ~—s STAT Use “a : 3368 
4 13 00081 BEQL is ; 
50 1 p00 00083 MOVL , RO : 3369 
04 000 RET 3 
50 D4 0087 3$: CLRL = RO : 3371 
4 00089 RET ; 
| 
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Ve-8ep-1984 49:97:60 EDEBUG.SRCIDBGPRINT ass. 9° 38) 
ROUTINE PRINT_PUSH(FLAG, STACK, I, NAMEPTR) = 


FUNCTION 
Push the Pointer to ASCIC name string on the top of the stack upwards 
or downwards. 


INPUTS 
FLAG - Flag to indicate the stack grows upwards or downwards. 


STACK = Pointer to the beginning of the stack. 

I - Current stack pointer. 

NAMEPTR = Pointer to ASCIC name string. 

arg. 5 = Flag set to indicate NAMEPTR contains a value descritpor. 


OUTPUTS 
TRUE or FALSE. TRUE to indicate stack underflow or overflow. 


BEGIN 
MAP 
I: REF VECTORC,LONG), 
NAMEPTR: REF VECTORC BYTE), 
STACK: REF PRTIDSSTACK; 
LTIN 
ACTUALCOUNT 
ACTUALPARAME TER; 
LOCAL 
VALFLAG; 
' SS Pres eerie vre ewe Bree ei ee ee = eee me ce ee mete me mete mem mee em 
i 
if (..1 LSS 0) OR (..1 GEQ PRINT_STACK_SIZE) THEN RETURN TRUE; 
IF .NAMEPTR NEQ 0 
THEN 
BEGIN 
VALFLAG = (IF ACTUALCOUNT() GTR 4 THEN 1 ELSE 0); 


Push upwards. 
if .FLAG 
THEN 


BEGIN 
STACKC..1, PRTIDSSTACK_PTR] = .NAMEPTR; 
IDSSTACK-FLAG] = .VALFLAG; 


BEE ESE & FANNIN IPDINPINININININININININININPINININININID 9 9 9 9 SS 
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Brita 13-08-71 3be 98: 95:2 DEBUG. SRC IDBGPRINT .B32:1 age 33 


3 3 429 & ' Push downwards. 
3 430 4 i 
; 5 431 3 ELSE 
3 4 ¢ 4 BEGIN 
5 4 bs ok © son.© 2 
; 3338 434 4 STACKE..1, PRTIDSSTACK_PTR] = .NAMEPTR; 
> 3339 435 4 STACKL..1, PRTIDSSTACK-FLAG) = .VALFLAG; 
: 3340 4 6 END; 
aire 138 END 
388 139 
: 3344 440 RETURN FALSE; 
> 3345 441 
3; 3346 442 1 END; 
001C 00000 PRINT_PUSH: 
-WORD Save R2,R3,R4 3: 3372 
51 0c aC dO 00002 MOVL 1, R1 : 3411. 
61 D5 00006 TSTL (R1) : 
09 19 00008 BLSS _—s'1$ : | 
00000064 =&F 61 D1 O000A CMPL (R1), #100 : 
04 19 00011 BLSS 2$ ; 
50 01 D0 00013 1$ MOVL #1, RO : 
04 00016 RET : 
53 10 AC bg 00017 2$ MOVL §- NAMEPTR, R3 + 3412 
3— 13 00018 BEQL : 
04 6C 91 0001D CMPB  =s«C AP), #4 + 3415 
05 18 00020 BLEQU ; 
54 01 DO 000¢e MOVL #1, VALFLAG ; 
02 11 0002 BRB 4$ : | 
54 D4 00027 3$ CLRL —-VALFLAG : 
18 04 AC €E9 00029 4$ BLBC ~—=FLAG, ‘5$ : 3420. 
50 61 05 ¢5 0002D MULL3 #5, (R1), RO > 3423 | 
52 50 08 AC C1 00031 ADDL3 STACK, RO, R : | 
62 53 00 90 6 OVL. R3, (R ; | 
50 08 AC CO 00039 ADDL2 STACK, RO : 3424. 
04 AO 54 90 00030 MOVB VALFLAG, 4(RO) ; 
61 07 99041 DECL (R1) : 3425. 
16 11 00043 BRB 6$ : 3420 
61 06 0045 5$: INCL (R1) > 3433 
50 61 . 2 4 MULL3 #5, (Ri), RO : 3434 
52 50 08 AC C1 0004 ADDL3 STACK, RO, R2 ; 
62 53 D0 0005 MOVL. R3, (R2) : 
50 08 AC co 005 ADDL2 STACK, RO + 3435. 
046 AO 54 90 0005 MOVB VALFLAG, 4(RO) : 
50 04 0005B 68 CLRL = RO + 3440 
04 0005D RET > 3442 


; Routine Size: 94 bytes, Routine Base: DBGSCODE + 154F 


3 3347 rey 1 
; 3348 444 0 END ELUDOM 
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-EXTRN LIBSSIGNAL 

PSECT SUMMARY 
Name Bytes Attributes 
DBGS$GLOBAL 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, » PIC,ALIGN(2) 
DBGSOWN 176 NOVEC, WET, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
DBGSPLIT 3546 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
DBGSCODE 5549 NOVEC,NOWRT, RD. EXE, SHR, LCL, REL N, PIC,ALIGN(O) 


Library Statistics 


: semen nae = Symbols eee eS eS Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255S$DUA28: SYSLIBILIB.L32:1 18619 33 0 1000 00:01.9 
; ~$255$0UA28: (DEBUG.OBJISTRUCDEF .L32;1 2 6 7 00:00.1 
; _$255$0UA28: (DEBUG.0BJJDBGLIB.L32;1 1545 195 12 97 00:02.0 
3 _$255$DUA28: DEBUG .OBJJDSTRECR DS.L32;1 
; 418 17 4 31 00:00.4 
3 $255$DUA28 : (DEBUG.0B8J JDBGMSG.L32;1 386 2 0 22 00:00.3 
; $255$DUA28 : (DEBUG. OBJ JDBGGEN.L32;1 150 4 2 12 00:00.3 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DBGPRINT/OBJ=OBJ$:DBGPRINT MSRC$:DBGPRINT/UPDATE=(ENHS:DBGPRINT) 

Siz e: 5549 code + 3734 data bytes 

02:00.3 


un Time :00. 
s\epeed Time: 0 § -6 
Lines/CPU Min 17 


"Y Used: 856 pages 
ee ation Complete 
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